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ABSTRACT 


This thesis describes the porting of a NASA developed 
Markov reliability analysis tool to a relatively inexpensive 
IBM-AT. Currently the Markov analysis tool, called SURE, is 
not widely utilized because it runs in an expensive 
environment consisting of a VAX, megatex display, and 
template graphics software. Although substantial savings can 
be made by running SURE without the expensive graphics, the 
user friendliness of the tool is dramatically degraded by 
the lack of graphics. Accordingly a C program using the 
inexpensive GEM graphics environment has been written. The 
program is user friendly; it uses menus for option 


selections and prompts for data entry. 
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I. INTRODUCTION 

A NASA developed program for computing the death state 
probabilities for reconfigurable fault tolerant computers 
forms the basis for this Thesis. Portions of the Semi-Markov 
Unreliability Range Evaluator (SURE) [{Ref. 1] are ported to 
an IBM-AT environment. The original version of SURE [Ref. 2] 
used theorems developed in reference 3 which enabled the 
computation of the death state probabilities of semi-Markov 
models. The latest version of NASA’s SURE uses a generalized 
method developed by Lee [Ref. 4] and White [Ref. 5] for 
calculating reliability. 

In this Thesis, the essential details of NASA’s SURE 
program will be utilized to develop a relatively inexpensive 
version of the program, for the IBM-AT environment. The SURE 
derivative developed in this thesis uses only White’s method 
for analysis of semi-Markov models. White’s method uses 
simple parameters of a model such as means and variance of 
the transitions to bound the probability of entering a death 
state of a semi-Markov model. The advantage of using NASA’s 
SURE technique is that the calculated upper and lower bounds 
of system reliability are algebraic in form, computationally 
efficient, and normally bound the reliability of the semi- 


Markov model within 5 percent. 
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A. RELIABILITY MODELING 

In this thesis a graphical method for representing 
ultrareliable systems will be presented. The current state 
of the art in electronic component manufacture, produces 
parts, that used singularly in the production of circuit 
assemblies do not obtain the reliability standards required 
for ultrareliable computer systems. Parallel redundancy has 
been demonstrated to achieve ultrareliable computer systems. 
Alternatives to massive redundancy, such as hybrid 
redundancy, use spares and reconfiguration to achieve higher 
reliability and as a result exhibit both fast and _ slow 
transitions. A semi-Markov model representing a hybrid 
redundancy system composed of three processors and a single 


spare is shown in figure 1.1. 


Be OE o@ 
d(t) 
ey A*3 (5) Ax2 Ce» 
d(t) 
(7) 9 


Figure 1.1 Model of a Triad with one Spare 
From: reference 1, page 2. 





All hybrid models require a combination of slow and fast 
transitions. A fault or failure is described graphically by 
a horizontal or slow transition between nodes. Because 
failure rates are assumed to be constant in a esystem’s 
operational phase, the fault arrivals are exponentially 
distributed. The failure rates can be calculated by using 
the MIL-STD 217D handbook or by experimentation. A constant 
representing the number of processors currently on line is 
used in conjunction with the exponential distribution A to 
represent a slow or horizontal transition between states. A 
node represents the current state of the system. The current 
state is a result of failures and system recoveries leading 
to the current state. States are represented by numbered 
circles as shown in figure 1.1. 

Hybrid systems have the ability to restore the full 
voting plane by substituting a spare processor for a failed 
processor. The recovery is graphically shown as a vertical 
transition between states. By definition the recovery rate, 
represented by d(t), is fast. The fast transition is 
characterized by a conditional mean recovery time, 
conditional variance and transition probability. 

During the time that a hybrid system failure has 


occurred and the system is attempting to recover, a "race" 
occurs between recovery and the arrival of another fault. If 
the system fails to recover, then another horizontal 


transition will occur. Eventually the hybrid system will 


enter what is referred to as a death state as depicted by 


states 3, 6, and 8 in figure 1.1. 


B. THE SURE PROGRAM 

The SURE program developed by the NASA Langley Research 
Center [Ref. 1] is currently running under VMS 3.7 on VAX- 
11/750 and VAX-11/780 computers. The program was supposedly 
designed with minimal usage of VMS specific constructs, 
however this is debatable since many of the constructs are 
indeed VMS specific and are not easily ported to other 
machines or operating systems. NASA’s SURE is composed of 
several modules - the computational module which is written 
in Pascal, the front end module which is written in Pascal 
and the graphics output module which is written in Fortran, 
and interfaces to the TEMPLATE graphics library. Because the 
graphics environment is very expensive and has’ specific 
requirements the graphical portion is normally not utilized, 
by users other than NASA. 

The SURE program derivative developed in this Thesis is 
partially functional on an IBM-AT. The program consists of 
three modules - the front end module, the computational 
module and the SURE options module, plus numerous include 
files. The routines are written in the C language using the 
Lattice C compiler. Many of the computational routines are a 
straight Pascal to C conversion. The remaining routines are 


required to provide the graphical interface for the SURE 





derivative program. When completed the SURE derivative 
program will be able to perform the basic functions of 


NASA’s SURE on a small scale model. 


C. PROBLEM OBJECTIVE 

Research in fault tolerant computers is being conducted 
at the Naval Postgraduate School. The need to quantify the 
reliability of the fault tolerant designs being considered 
is the driving force behind this thesis. The objective of 
this project is to implement the SURE program in a 
relatively inexpensive IBM-AT environment. The program 
should be user friendly, interactive, and able to perform 
the same basic operations as the NASA developed SURE program 
[Ref. 1]. To accomplish the objective, the program was 
written in the C language and uses GEM (Graphics Environment 
Manager) [{Ref. 6]. 

Reference 1 is the work of Ricky W. Butler of NASA, 
Langley. References 1 and 5 are the basis of all the theory 
discussed in this Thesis. Chapters III and IV present 


discussions developed on White’s technique. 
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II. PROGRAM DEVELOPMENT 

The package developed in this thesis was designed to 

meet the objectives outlined in the previous chapter. It is 

an interactive package written in, ©, to run on the IBM-AT 

(Appendix A). The C language was chosen for the following 
reasons: 

1) C programs using the Lattice compiler can interface 

with the state-of-the-art GEM graphics package. 


2) © code is efficient in terms of memory usage and 
execution speed. 


3) C appears to be the micro-computer language of the 


future, therefore it will be easy for programmers to 
alter and improve this program in the future. 


A. APPROACH TO THE PROBLEM 

A combination of top-down and bottom-up programming 
techniques were used to develop a microcomputer based SURE 
package. First, the tasks that the program must perform 
were defined. Then, each task was developed in greater 
detail until, finally, very specific routines were 
implemented to perform each task. Of course, a few new tasks 
were defined and routines created during the development of 
the program and these new tasks were incorporated with the 


existing GEM routines. 
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The tasks which the program performs may be broken down 
into three basic categories: 
1) Window manipulation. 
2) Pregram control. 


3) Reliability analysis. 


The approach used to accomplish these tasks is discussed 
in the following subsections. 
1. Window Manipulation 

The window manipulation task uses GEM Application 
Environment Services (AES) to build two windows for the 
display and manipulation of input states and data. GEM AES’s 
subroutine libraries provide routines for a wide variety of 
tasks, including windowing, monitoring the mouse’s movement, 
displaying system mesSages and error messages, and drawing 
objects on the screen [Ref. 6]. The first window (see 
Figure 2.1) is described as the picture window where all the 
Sraphical interpretations of the system are displayed. The 
second window is referred to as the data window. The picture 
window is initialized to 60 percent of the screen width; the 
remaining 40 percent is occupied by the data window. 

The manipulation of these windows is controlled by 
the subroutines that are contained in , the Front-End of 
SURE (Appendix B). Specific details about the manipulation 
and editing of these windows can be found in the 


documentation for GEM (Ref. 6]. Although the author found 
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the GEM documentation very difficult to use and understand, 
nevertheless GEM is a very powerful new product that 


additional documentation should help to make user friendly. 


Desk File Scr-Options Sure-Options 1 | 
nn SSS oe SIRE TE WINDOW 





Figure 2.1 SURE Windows 


The windows can be manipulated in size, viewing 
area, and zooming by manipulating "window control areas" 
located in the border areas of the windows. User interaction 
with any of the window control areas causes some change to 


take place, either in the window or the window as a whole. 
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Additional information about the manipulation of the windows 
will be discussed in chapter VI. 
2. Program Control 

The environment that the user works in is modeled 
after the Apple Macintosh computer. A "mouse" is’ used to 
"click" on "windows", pull-down "menus", and otherwise 
interact with the system. Menus represent groups of SURE 
options that auser can choose within SURE. To select a 
menu, the user places the mouse form over the menu’s title 
in the menu bar. This causes the menu to drop down. The menu 
appears in a rectangle below the menu bar and remains until 
the user clicks the mouse button (see Figure 2.2). 

Program control uses the concept of option menus. A 
variety of menus are presented to the user throughout the 
program’s execution showing the options available at that 
time. Sometimes self-management is also used to control the 
option menus. That is, an option selected by the user 
sometimes reduces his subsequent options by automatically 
presenting a predetermined menu. 

The menu driven options approach presents options in 
plain English. As a result the user does not have to know 
any special language or commands. Self management and plain 


English options allow the program execution to flow with a 


minimum number of inputs and far fewer errors. 
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Desk File Scr-Options : 
a PLO Rellaplirty: J 
Scones SURE PICTURE Compute Reljability 

Print Hardcopy 7: 
Slow Transjtion ::... 
Fast Transition © ~ 
Entey States 4... - 
Enter Constants - 


Figure 2.2 Sure Menu 


3. Reliability Tasks 
The original SURE used both the Lee and White 
methods to compute the reliability. Although the objective 
was to transport a graphically enhanced version of the NASA 


developed SURE tool to an inexpensive environment, the IBM- 
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AT version uses only White’s theorem. Nevertheless the 
program was designed to allow additional computation methods 
to be easily added at a later date. The White method is 


discussed at length in Chapter III. 


B. ORGANIZATION OF THE PROGRAM 

Low level routines were written based on their output. 
The input of these routines, then, defined the output of the 
next higher routine. This process of building upward was 
continued until ultimately the required input data came 
directly from the user. For this reason, the parameter 
input routines form the higher levels of the program. 

At all times during the programming process the routines 
were written using modular programming techniques. In the 
GEM environment the menu items and dialog boxes are created 
with the aid of the GEM Resource Construction Set (RCS). A 
dialog box, which is a special form used in the GEM 
environment, provides a consistent method of interaction 
between SURE and the user. After this step is completed the 
code necessary to use the resource file (menus and dialogs) 
must be developed. Additional information can be found in 
reference 6. 

The basic organization of the program is shown in Figure 
2.3. The shell routines were written first, the input model 
routines next, followed by the interactive data routines and 


finally the computation routines. 
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Figure 2.3 Program Organization 
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III. BOUNDS BASE ON MEANS AND VARIANCES 

In this section the Software Implemented Fault Tolerance 
(SIFT) computer [Ref. 7] figure 3.1 is utilized to describe 
White’s theorem f[Ref. 5]. White’s theorem provides a 
graphical means of computing the upper and lower bounds of 
probabilities of transitioning a given model through all 
paths to death states. Normally these bounds can be computed 
within five percent of each other. 

In the SIFT model there are a total of sixteen possible 
paths which must be considered to reach deathstates 4, 8, 


11, 14 and 16. 


1 -> 2 -> 3 ->G) 

1-> 2->5-> 6 -> 7 ->@) 

1-> 2-> 5 -> 6 -> 9 -> 10 ->Q@ 

Me > 5 6 -> Sie 10> 12 => 13 —> G4) 

1 -> 2-> 5 -> 6 -> 9 -> 10 -> 12 -> 13 -> 15 -> (6) 


©) - Death State 


White’s theorem calculates the probabilities of traversing 
the model through each path. The sum of these probabilities 


represents the unreliability of the model. 


18 





a Ax6 3 Ax5 (3) x4 Oo 


§(t) 
© 9 A*K4 ‘a A*3 «> 
Ee, 
(8) (10) (2) 
5(t) 


S(t) 
‘\ 


OO 
Figure 3.1 Semi-Markov Model of SIFT 
From: reference 1, page 4. 


A. PATH-STEP CLASSIFICATION 

In order to apply White’s theorem three classifications 
of paths through a model must be defined. The classes are 
defined by the “on-path" and “off-path" transitions from 
the state. The "on-path" and "“off-path" transitions are 
further defined slow for horizontal transitions and fast for 
vertical transitions. The term "on-path" will be used to 


represent the transition currently analyzed. The state and 
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the transition leaving a state is detined as the ‘path 
step". 


1. Slow On Path, Slow Off Path 


Ni 


i 


iiewre 1.2 eS lowson PathweSloweeft Path 
From: reference 1. page 6. 


The first class to be discussed represents slow on- 
path fault arrival [{Fig. 3.2] characterized by the constant 
failure rate fi. This class may contain many off-path slow 
transitions. The sum of the off-path slow transitions is 
represented by ioe Transitions 9 -> 10 and 12-> 13 #in 
figure 3.1 are exponential fault arrivals path steps of this 
class. 

The user should note that in this model there are no 
fault recovery transitions. The model represents path steps 
with failure modes only. For electronic circuits with at 
least one fault recovery reconfiguration, a class three 


model should be used. 
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Figure 3.3 Fast On Path, Arbitrary Off Path 
From: reference 1, page 6. 


This class is characterized by a single on-path fast 
vertical transition representing fault recovery [Fig. 3.3], 
Ei represents the sum of all slow transitions. Path steps 
6 -> 9 and 7 -> 10 of the SIFT model shown in figure 3.1 are 
examples of fast transitions. Each fast transition is 
characterized with a conditional mean, conditional variance 
and transition probability. If a single recovery transition 
exists then the transition probability is one, if there is 
two or more transitions then a fractional transition 
probability must be assigned. Many off-path fast and slow 


transitions may exist in this class. 
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3. Slow On Path, Fast Off Path 





Figure 3.4 Slow On Path, Fast Off Path 
From: reference 1, page 11. 

This class [Fig. 3.4] covers all transition classes 
not covered by class one or class two. Specific requirements 
for this class are that at least one fast transition must be 
a off-path transition and the slow transition must be on- 
path. Bj represents the sum of the fault arrival rates for 
the off-path slow transitions. Paths f -> 8 and 10 -> 11 in 


figure 3.1 represent this class. 


B. WHITE’S MULTIPLE RECOVERY THEOREM 

White’s theorem as presented in reference 1, bounds the 
upper and lower value of the probability D(t) (see Eq. 3.1) 
of entering a death state during mission time T, subseguent 
to k class one path steps, m class two path steps andn 


class three path steps 


LB < D(T) s UB (Seal) 





where 


m n 
Dea il) go pti) ze aj u(Hj ) Cee) 
1=1 suael 
m uo (Pag + O=(Fi ) oa 
mee eto eee Chi) 1 -Ci “U(r yo" = ----------- ] 3 
i=l ri 2 j=l 
aes vilue(hipmo2 (Hide. ut(Hj )+o2(Hj) 
Ei } (3.3) 
Z Sj 
= a arm + (Sir + Sn 


D(t) = Probability of Entering a Death State 


UB = Upper Bound 

LB = Lower Bound 

U = Conditional Mean 

ge = Conditional Variance 


P(Fi)= Transition Probability 


E(T) = the probability of traversing a path consisting of 
only the class 1 path steps within time T. 
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White’s theorem as discussed in chapter III is designed 
to calculate the probability of entering a pure death state 
of a semi-Markov model. Unfortunately the analysis of an 
electronic circuit may not end at aset of finite paths 
through the model. Occasionally hybrid models under analysis 
will require the modelling of paths which repeat as a result 
of intermittent or transient faults. 

Accordingly, several models that may be used to 
represent this class of fault will now be discussed. 

The first model of a transient fault can be represented 


as shown in figure 4.1. 





Figure 4.1 Transient Fault Model 
From: reference 1, page 13. 


The constant fault arrival rate f represents faults of a 
transient nature in the model. The distribution function 
F(t) represents the time that the transient fault may exist 
in the hybrid circuit being modelled. The hybrid circuits 


being modelled will try to recover by ery euiee 
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reconfiguration. The reconfiguration process has a 
distribution represented by G(t). An infinite series of 
paths results from using this model [Fig. 4.2]. 

Lo — > oe - eee 

i= => it =>e2 => 3S 


i eee es > me -> 2 > 8 
(ea meee ee > 1 ->9 2 -> 1 -> 2 =>-3 


Figure 4.2 Infinite Paths 
From: reference 1, page 13. 
As the length of the path increases the significance of the 
probability of entering the pure death state 3 in the model 
decreases. By limiting the number of times a particular path 
or loop is repeated computational efficiency can be 
achieved. 

NASA’s SURE has ae user controlled special constant 
called TRUNC which will limit the number of times that a 
path is traversed in the model. This special constant will 
be included in the completed SURE derivative program. 
Another interrelated constant is the PRUNE constant. It is 
user-specifiable and will terminate the computation of all 
paths which fall below the probability specified by the 
PRUNE constant. The PRUNE constant effects all paths in the 
model inclusive of paths that do not repeat. NASA recommends 
that users experiment with different values for TRUNC and 


PRUNE to enSure convergence. 
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The next model to be discussed is the model representing 
intermittent faults iat 4 . Zile The fact that an 
intermittent fault does not disappear differentiates it from 
the transient fault. A fault that is not active is 


represented by Q in the intermittent model. 





Figure 4.3 Intermittent Faults 
From: reference 1, page 15. 


This model shown in figure 4.3 appears very similar to 
the previous model, the model is however computationally 
very different. In the intermittent model a loop is formed 
on a vertical or fast transition, which may cause a very 
slow convergence. 

The recommended approach [Ref. i Bl@ne Gircuate 
exhibiting slow convergence is to model the circuit with the 
collapsed transition model shown in [{Fig. 4.4]. In the 
collapsed transition model G* represents the conditional 


mean, conditional variance of the recovery time distribution 
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and transition probability of a path step attempting to 
recover from an intermittent fault. These values can be 


found experimentally, or calculated from F, G and Q of the 


previous model. 





Figure 4.4 Collapsed Transition 
From: reference 1, page 16. 


The analysis given in this section came from reference 1 
it can be applied to many similar models to demonstrate that 
convergence will occur. Users desiring more information are 


directed to reference 1. 


Path 





The SURE derivative program Creates a graphical 
environment in which a semi-Markov model can be graphically 
input with a mouse and high resolution display. A simple 
graphical method is utilized to enumerate the fast and slow 
transitions. This is accomplished using many of the routines 
and graphical symbols resident in GEM. Graphical symbols 
such as circles and arrows are used to enumerate the states 
and the transitions between states. Menu options are 
selected by the user initiating very specific dialog boxes 
to appear in the center of the screen. The dialog boxes 
require the user to interact, and form the basis for direct 
data input to the SURE program. The input data which is 
input by way of the dialog boxes is stored in data 
structures for use by the SURE program. The graphical 
language required by the user for interaction with the SURE 


program will be discussed in detail in this section. 


A. BASIC PROGRAM CONCEPT 

As the first step in describing a semi-Markov model the 
SURE user must assign state locations in the picture window. 
Assignment of state numbers is done automatically as the 
state locations are defined. State assignment numbers begin 


at one and are incremented to a maximum of 100. The semi- 
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Markov model description is continued by enumerating all the 
transitions. As described in the previous sections, each 
transition is described as being either slow or fast. 
Consequently, there are two different menu selections used 
to enter transitions - one for slow transitions and the 
other for fast. If the transition is slow, then the slow 
menu selection is used. The user simply moves the mouse into 
the Sure-Options part of the Main Menu. A drop down menu 
will appear. The user then positions the mouse on the 


appropriate entry and clicks the mouse (see Figure 5.1). 





} | 3 as 
Sra f Plot Reliability . , 
Compute Reliability | SURE DATA WINDOW. 


Print Hardcopy 






Enter Constants 








Figure 5.1 Slow Transition 
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A slow transition is the most trivial transition to draw 
graphically. The routines required to draw and label the 
graph are located in Appendix G. The routines necessary are 
self documenting and should be easy to follow. 

This menu selection causes a dialog box to appear in the 
center of the screen (see Figure 5.2). A’ slow transition 
from 1 to 2 can then be defined by typing in the exponential 
transition rate. This value can be defined using previously 
defined constants or by typing in the numeric values. 

Figure 5.2 defines a slow exponential transition from 
state 1 to state 2with rate 0.0003. If the transition is 
fast, then the fast transition menu selection is made. 
This selection causes a fast transition dialog box to appear 
in the center of the screen (see Figure 5.3). A fast 
transition from state 2 to state 4 is detined by entering 
the mean, standard deviation andthe probability of the 
transition. In both the slow and fast transitions the values 


entered will appear on the screen as shown in Figure 5.4. 
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Figure 5.2 Slow Transition Dialog Box 
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Figure 5.3 Fast Transition Dialog Box 
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Figure 5.4 Example Slow, Fast Transition 


B. SURE MODEL DEFINITION SYNTAX 

The transition-description menu selection described 
above are the only essential ingredients in the SURE 
graphical language. However, the flexibility of the SURE 
program has been increased by adding several features 


commonly used by menu driven programs. 
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ie OUR user may equate numbers to identifiers. 
Thereafter, these constants identifiers may be used instead 
of the numbers. For example, 

LAMBDA = 0.0052; 
can be entered by selecting the menu item labeled enter 
constants, again a dialog box will appear in the center of 
the screen. The user may then enter the identifier and it’s 
value (see Figure 5.5). 

The user should use a little forethought before 
initiating and defining the constants. When the dialog box 
appears the name of the constant is normally selected and 
should be entered first followed by its value, however 
either can be defined first. The editable fields within the 
dialog box are selected by moving the mouse to the desired 
field and clicking once. The desired values can then be 
entered by way of the keyboard. The user may need to 
backspace over the last items that were entered. 

Constants may also be defined in term of previously 
defined constants: 

GAMMA = LAMBDA*10; 

In general the constant is identified by a string of up 
to eight letters, digits, and underscores (_) beginning with 
a letter, with a value defined as an arbitrary mathematical 


expression. 
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Desk File 
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the field bY eUscking on the field - 
with the left mouse button and then 
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Figure 5.5 Enter Constants Dialog Box 


When specifying transition or holding time 
parameters in a dialog box, arbitrary functions of the 


constants may be used. The following operators may be used: 


+ addition 

= subtraction 

x multiplication 
y division 
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Expressions may be grouped by using (). 
The following are permissible expressions: 
.00001 


alphax*1.2 
alpha*1i.2 + alpha*id2 


The states are entered by selecting the menu item 
labeled enter states. The user then carefully selects the 
position of the states in the picture window by placing the 
mouse in the desired location. The user then depresses the 
left mouse button, a state is then drawn and labelled in the 
location specified. The program will not allow a state to be 
drawn too close to another state nor will it allow the user 


to draw a state too close to the boundaries of the window. 


2. Slow-Transition Description 
A slow transition is completely specified by 
selecting a slow transition from the menu, clicking the 
mouse button on the source state, and then clicking the 
mouse button on the destination state. The resulting 


transition is displayed in the picture window as an arrow 
connecting the source state to the destination state. The 
dialog box will appear and the user may enter the desired 
rate for this slow transition. The following will appear in 


the data window: 


"source" TO "dest" = "rate" 
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where ‘source’ is the source state, "dest" is the 
destination state, and "rate" is any valid expression 
defining the exponential rate of the transition. In the 
notation of the theory section we have 

1 ge Ai ; 

3. Fast-transition Description 

To enter a fast transition the appropriate menu item 

is selected, then the user designates the source and 
destination as described above. A dialog box appears”) and 
again the appropriate information is entered. The following 
syntax will appear in the data window. 

“source TO "dest" = "mean" ,"stddev", "fract" 
where 


“mean” = an expression defining the conditional mean 
transitven time, u( Por 


“stddev" = an expression defining the conditional 
standard deviation of the transition time, 
G.Ch re 

“fract" = an expression that defines the transition 


probability, p(F) 


and "source" and "dest" define the source and destination 
states, respectively. In the notation of the theory section, 


we have 


1,3 = < u(Fi), o( Fi), p(Fi) >; 


The third parameter "fract" is required to define 


the transition probability. If there is only one recovery 
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transition the probability is 1.0. If there exists more than 
one recovery transition the sum of the probabilities from 


each state should total 1.0, the user must ensure this. 


C. SURE COMMAND SYNTAX 
The SURE menu is broken down into four sub-menus, Desk, 


File, Scr-Options and Sure-Options (see Figure 5.6). 


SCR-OPTIONS SURE-OPTIONS 


About Sure Pen/Eraser Plot Reliab 
Calculator Erase Pic Compute Reli 
Clock View Print Hard 


Slow Trans 
Fast Trans 
Enter Stat 
Enter Cons 





Figure 5.6 Sure Menus 


Kach entry will be discussed in the following sections. 
1. Desk 
The sub-menu desk contains menu items that are not 
required by SURE. The menu items are listed below: 
About Sure - Produces a dialog box listing information 
about the author of SURE. 
Calculator - For convenience, a calculator will appear 
in the center of the screen allowing the 
user to obtain the value of an arbitrary 


expression. 


Clock ~ System time will appear on screen 
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The sub-menu File contains the menu items for the 


loading and storing of SURE specific information. Each menu 


item is discussed 


Load - 


Save - 


Save As = 


Abandon = 


3. Screen-Opt 


<A EEE pe FORRES Ob) ebm ood 


pale 


below: 


The load selection is used to load a SURE 
run that was previously saved. 


Saves the file for current SURE run. The 
user must have previously named the file 
by means of a load or Save As. 


Saves the present SURE run under a new 
filename. 


Reverts to the last-saved version of the 
users file. If the user is dissatisfied 
With changes made , Abandon clears the 
changes and gives the user a fresh copy. 


Takes the user back to the GEM Desktop. 


Lon 


OO Ne ae om, 


This sub-menu controls the operations performed in 


the picture window and data windows. The screen options are 


discussed below: 


Pen/Eraser - 


Erase Pic ~ 


View - 


The selection allows the user to select 
the small, medium and large states and 
colors as desired. 


Erases the currently displayed information 
from the picture and data windows. 


Allows the picture window to be displayed 


in several expanded and non-expanded 
modes.(To be added Later) 
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4. Sure-Options 


OR Op RT nee! bP os 


This sub-menu contains the main SURE user interface 
menu items. It should be used continuously during a SURE 
session. Menu items are discussed below: 


Plot Reliab -After a Compute Reliability, this item can 
be selected to plot the output in the 
picture window. (To be added later) 


Compute Reli -After a semi-Markov model has been fully 
described to the SURE program, this item 
is used to initiate the computation. 


Prant Hard -This item is used to print the screen to a 
printer.(To be added later) 


Slow Trans -Used to define a slow transition. Causes a 
interactive dialog box to appear in the 
center of the screen. The user types in 
the value for the slow transition. 


Fast Trans -Used to define a fast transition. Causes a 
interactive dialog box to appear in the 
center of the screen. The user types in 
the values for the fast transition. 


Enter Stat -Used to enter the states. Causes the SURE 
program to prepare to receive the state 
locations specified by the user. The user 


defines state locations by positioning the 
mouse cross-~hairs and pressing the button. 


Knter Cons -Used to enter the user defined constants. 
Causes an interactive dialog box to appear 
in the center of the screen. The user may 
define new constants or any of the Special 
constants discussed below. 
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5. SURE Derivative Special Constants 

NASA’s SURE has many special constants (see TABLE 
5.1) which interact with the user to provide special program 
control. The definitions and the names of the constants used 
by NASA (Ref. 1, page 25 & 26) are given in TABLE 5.1. 
Several of these special constants such as TRUNC and PRUNE 
were previously discussed. The completed SURE derivative 
program will implement several of these constants as 
follows: 


TABLE 5.1 SPECIAL CONSTANTS 
TIME 


25; Sets the mission time to 25. The default 
TIMGers 10. 

POINTS 25; Indicates that ZO mabOlLnus should be 
calculated/plotted over the range of 
the variable. 

Default value is 25. 


1 


PRUNE 


i 
=? 


sets pruning level to .1. The program 
will stop searching a path after its 
current probability becomes less than the 
specified level. The default is 0.0. 


WARNDIG 


i 
NO 


Sets the number of digits accuracy 
desired in the upper bound to 2 when the 
PRUNE command is in use. The default is 


TRUNC 


i! 
NO 


Sets truncation point at 2. Default is 3. 
If an infinite loop is found in the graph 
this determines the maximum number of 
times that the loop will be traversed. 


LBFACT 


i} 
A) 
© 


Sets the ki and k!3 constants in White’s 
theorem to ZQ. 

LIST sets the level of information to be sent 
to the Data window. Default is 2. 


tf 
aS 


Adapted from: reference 1, page 25 & 26. 


Al 





A. 


uses a 


VI. EXAMPLE SURE SESSIONS 


OUTLINE OF A TYPICAL SESSION 


The SURE program was designed for interactive use. It 


graphical approach to describe a semi-Markov model. 


The following method of use is recommended: 


ts 


De 


Select the desired state size, using the pen/erase 
menu item. The default size is medium. All graphical 
sizing aids are presently designed to operate in the 
medium mode. 


Enter all the Special constants. 


Enter all the user defined constants. 


Use the mouse to carefully enter the state 
locations. Verify that the model appears in the 
desired form. If the model is not in the desired 


form erase the model by using erase picture. 


Carefully define the transitions by selecting either 
a slow or fast transition. Define the source. state 
by clicking once on the state, define the (dest) 
destination state by clicking once on the state. The 
appropriate state is selected if the mouse location 
is within 18 pixels of the center of a state. Enter 
the values to describe the transition. 


select the compute reliability menu item. 


EXAMPLES 


The following examples illustrate direct interactive 


SURE sessions. The actual graph is given first then the SURE 


program analysis. The final results are simulations since 


the computation module which calculates the upper and lower 


bounds is still being debugged. 
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1. Example 1 
This session illustrates direct interactive input 


of a simple semi-Markov model (see Figure 6.1). 


LAMBDA*6 LAMBDA*5 










.0001 
.00001 
Lo 


LAMBDA*2 


Figure 6.1 Simple Model 


The following sequence of Figures is exactly what the 
SURE user would see during the execution of this example. 
Figure 6.2 is the initial screen displayed when the the Sure 
program is selected. 

The sequence to follow is not critical to the operation 
of the SURE program. It is simply intended as a guideline. 
The sequence can be rearranged in practically any order. The 
user may add states at any time during the initial diagram 
description. If during the process of describing the 
graphical model a constant is changed, that defines a 
transition, the model will not display the change but the 
program will use the latest value of the constant in it’s 


computations. 
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Figure 6.2 SURE Initial Display 


Next, the constants for this example are entered by 
selecting enter constants. Figure 6.3 illustrates the 


display after all the constants have been entered. 
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Figure 6.3 Example 1 Constants 
The states are the next items to be added to this SURE 
Problem. As discussed earlier care must be taken in 


selecting the locations for the states. The graph shown in 
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Figure 6.4 was produced while trying to keep in mind the 


graph depicted in Figure 6.1. 
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Figure 6.4 Example 1 States 
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After the states have been entered, the transitions are 
entered as discussed in Chapter five (5). The completed 


graph is shown in Figure 6.5. 


Desk File Scr-Options Sure-Options 
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Figure 6.5 Example 1 Complete Graph 


The next step is to do the calculations. This is 
accomplished by making the menu selection labeled Compute 


Reliability. The complete example 1 results are displayed in 


Figure 6.6. 
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‘Desk File Scr-Options Sure-Options 








Figure 6.6 Complete Example 1 
(Calculations have been Simulated ) 
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2. Example 2 
The following example illustrates the use of SURE to 
solve a model of a triplex system with one spare (see Figure 


6.7). The plot reliability function is also displayed. 


LAMBDA* 3 LAMBDA*2 
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LAMBDA 
Figure 6.7 Example 2 Model 


Figure 6.8 shows the model after it has been entered 
into the SURE program. Again note that an effort was made to 
keep good alignment and to represent the model as shown in 


Figure 6.7. 
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Figure 6.8 SURE Example 2 Entered 


Figure 6.9 shows the completed example 2 problem. The 
problem can be saved for future use by using the functions 


described earlier under the sub-menu titled File. 
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Figure 6.9 Completed Example 2 
(Calculations have been simulated) 
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Vll. CONCLUSIONS 

A. SUMMARY OF RESULTS 

The SURE program is a flexible, user-friendly, 
interactive graphical tool, modeled after the SURE program 
developed by Ricky W. Butler of Langley Research Center 
Hampton, Virginia. The program provides a rapid 
computational capability for semi-Markov models useful in 
describing the fault-handling behavior of fault-tolerant 
computer systems. The only modeling restriction imposed by 
the program is that general recovery transitions must be 
fast in comparison to the mission time. The SURE reliability 
analysis method utilizes a fast approximation theory 
developed by Allan L. White of PRC Kentron, Inc.. These 
upper and lower bounds are typically within 5 percent of 
each other. 

Although the approximation theory does not explicitly 
deal with semi-Markov models that are not death processes, 
the SURE program utilizes simple path truncation strategies 


to enable the analysis of such models. 
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B. RECOMMENDATIONS 

It is recommended that additional work be done on the 
program to remove the following bugs which presently exist 
in the program. 

1) State locations are determined by storing the pixel 
coordinates in a structure called STATE LOC. These 
coordinates are determined by the location of the mouse in 
the picture window when a state location is specified by the 
user. The program will currently operate using pixel 
locations of the picture window when the picture window has 
not been scrolled. 

2) The parser required to implement the use of all the 
special constants has not been included in the listings. The 
final listings will be available on disk. 

3) The GEM package currently uses a very crude method of 
writing to the screen. The GEM subroutine v_gtext(), 
requires all text to be in a character string. Additional 
work should be done to create a better method of displaying 


floats and integers. 
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APPENDIX A 
GETTING STARTED 


HARDWARE REQUIREMENTS 

The recommended hardware for the SURE program is an IBM 
PC/XT or AT (or 100% compatible) with 512K RAM, a graphics 
card, and a mouse. 
Supported graphics card include: 

- Monochrome Hercules Graphics Card(TM) 

~ IBM Color Graphics Card (in monochrome mode) 

~ IBM Enhanced Graphics Card 
Supported mice are PC Mouse by Mouse Systems(TM), the 


Microsoft Mouse, Summary graphics Tablet, and keyboard. 


SOFTWARE REQUIREMENTS 

In order to use SURE you must have the GEM Programmer’ s 
Toolkit(TM) installed on your machine. To install the 
software on your IBM PC/XT or AT, follow the instructions 


included with GEM, or do the following: 


1. Load DOS into your computer. 

2. Place the GEM SYSTEM MASTER in drive A, type GEMPREP, 
and press ENTER. Follow the instructions carefully, 
answering any questions you are asked. 


3. Create a subdirectory called TOOLS and copy the disks 
with GEM PROGRAMMER’s TOOLKIT to that area. 


4. Copy the SURE program disk into that area. 
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5. The items listed below are required for the user who 
wishes to edit the SURE program. 


- PC DOS version 2.0 or higher 

- the lattice C compiler (the user may use another 
compiler but extensive rewriting of the GEM 
bindings may be required) 

-~ an assembler, linker, and librarian such as those 


provided in DR Assembler Plus Tools (RASM-86, 
LINK-86, LIB-86) 


USING SURE 
The SURE application can be executed by/from the GEM 
Desktop, by doing either of the following: 
~ Double-click on the SURE icon. 
- Select the SURE icon and then choose the Open 


command from the File Menu. 


Note: An icon is a GEM symbol. 
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APPENDIX B 


FRONT END OF SURE LISTING 


The SURE routines that contain the code required to 
manage the windows and menus are contained in this Appendix. 
The code was developed by using a example of an application 
that came with GEM called Demo. Considerable modification of 
the original code has taken place. Most of the code 
conversion was done to add the second window called the data 
window. The window called the picture window was referred to 
as the work_area in the demo program. 

Demo contains several routines which are not currently 
being used by SURE. These routines were retained for future 


development of the SURE program. 
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/t Author: MAJOR JOHN C. BORDEAUX U.S.M.C. 
/t PRODUCT: MARKOY ANALYSIS TOOL 
/$ Module: REVISION OF DEMO, 


‘4 =Version: 


it 


APRIL 1984 


Version 1.4,FROM DRI 


t/ 
i 
t/ 
t/ 
t/ 
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/‘t includes t/ 


#incluce 
firclude 
#irciude 
#include 
#include 
finclude 
#inciude 
#inciude 
#inciude 
/it/ 


#define 
#define 
#detine 
#define 


$define 


#define 
fdetfine 


"pertat.h* 
"gachine. ti" 
"obdefs.h® 
"treeaddr.h" 
“gembind.h® 
"csure.h' 
*sath.h’ 
Onasch 
"optstrct.h* 


MAXSTATE 106 
MAXTRANS 200 
ARROW 0 
HOUR GLASS 2 


DESK 0 


END UPDATE 0 
BEG UPDATE 


ft portabie coding conv 
/¥ machine depndnt conv 
/t object definitions 
/¥ tree address macros 
/t ges binding structs 
/t SURE api resource 


/t file offsets 
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#cefine 
#define 


tdetine 
tcetine 
#define 


#define 
#define 
$define 
#define 


#define 


#detine 
#cefine 
tdefine 
Rdefine 


extern 
extern 
extern 
extern 
extern 
extern 
extern 
double 
double 
BOOLEAN 
BOOLEAN 
double 
dcuble 
doutle 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
double 
double 
BOOLEAN 
BQSLEAK 
ROGLEAN 
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WORD 


PEN_ INK 


PEN ERASER 


PEN FINE 
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BLACK 
WHITE 
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Gx 0100 
0x%0200 
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/¥ extended object types 
/t used with scrolling 


it 


selectors 


YSCALE (x) UMUL_DIVix, scrn_xsize, scrn_ysize) 


TE TXTLEN(x} (x + 24) 


BI FDATA(x) 


BY WB fx) 


(x) 
(x + 4} 
fy + 6) 


BI HL(x) 


WORD 
WORD 
LONE 
WORD 
WORD 


ihnlee 
POINTS; 
PRUNE | 
WARNDIE: 
TRUNC 
WORD = LBFACT; 
WORD LIST; 
speclow = -1; 
spechigh = -1; 
erun: 
nonlinear=FALSE; 
specval; 

ubfail; 

lbfail; 

ydata = 1; 
runno=03 
pathcount = 0; 
cnttrunc = 03 
cntorunE = 0; 
bigst = |; 
eof t; 
Ear t del; 

et bad = FALSE; 
rec Slow = FALSE: 
std big = FALSE; 
rate tig = FALSE; 
1, 


it 
ii 


@icssion tise 
number of points plotted 
deactivate th prunning 
set ub acc. to two digits 
cet ioop traversals at 3 
sets the Fi and Kj = 20 
sets the basic output ievel 
Varlabie range value 
variable range value 
runti@e errors flag 
nonlinear flag 
specia] variable value 
prob of system failure 
lower bound of failure 
Current data line 
run nueber 
humber of paths 
number of loops truncated 
nusber of paths pruned 
largest state entered sc far 
E{T) computation result 
E(T-%) computation result 
E(T} coep. 15 inaccurate 
recovery too slow 
Rec Std. too big 
Exp. rate too fast 


t/ 
t/ 
i/ 
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double plalpha; ft product of the alphas t/ 


double lowbf, lowbs; /t intermediate results t/ 
WORD nua states = 1; /t nuaber of states enterec t/ 
/t ~~ External Functions t/ 
eee ee —— t/ 


EXTERN LONG =«©dos_alloc(); 
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/t Global Data Structures %/ 
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STATE_LOC }=«state_array(MAXSTATE); 
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|b Srelatetatatntatatatetatatatetatetatatatatatetetataatetare t/ 
it Extrni Data Structures t/ 
[¥------------------------------ t/ 


EXTERN UNORD © DOS_ERR; 
EXTERN = LONG) = drawaddr3 


ee t/ 
it Glebal Data Structures %/ 
eGo eee ceca: (2 --- => ----— 1/ 
GLOBAL WORD = =contr}(11]); /t control inputs t/ 
GLOBAL WORD = =intinl80]; /t max string length t/ 
GLOBAL WORD = ptsin{256é]; /t polygon fill points 1; 
GLOBAL WORE intoutl45),; /t open workstation output t/ 


GLOBAL WORD = =ptsoutl123; 


ee ae n= t/ 

ft Local Data Structures t/ 

| fom a aman nna owen = tj 

WORD = g)_wchar; /t character width t/ 
WORD =) _hchar; /t character height t/ 
WORD = g}_whbox: ft box (cell) width t/ 
WORD = gi _hbox; /t box (cell) heicht t/ 
WORD =. g)_hspace; /t Ht. of Space between lines %/ 
WORD ea handle; /t GEM vdi handle t/ 
WORD = vdi_handle; /t SURE vdi handle t/ 
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WORE 
WORD 
WORD 
WORD 
KORD 
WORD 
UWORD 
WORD 
UWORT 
UWORE 
UwORD 


REDS 
MF Db 
MF DB 
BF DE 


LONG 
LON 
LONG 
LOG 


WORD 
WORD 
WORD 
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‘ 
scr planes; 


scrn_xS1763 


scrn_ysize 


m out = FALSE; 


ev whichis 


MOUSEX, MOLSeY; 


bstate, belicks; 
kstate, kreturn; 


curr mtb; 
pict mtdby 
data miab: 
scrn_mtdo; 


S12€ pict. 
size data_ 


aidbs 
af dbs 


loc_pict_mfdbs 
lec_data_afdb: 


curr hndl; 
pict find); 
Gata And); 


it open virt workstati 
/t type of trnsfmin eftect 


f< werk area of current windcr 


fi work ares of ‘picture’ window 


siosorh area of ‘picture’ winds 


{t szy for ¢uli/untulling 


TH 
as 
“ 
ro 
Cts 


it gecsage butter 

/t LONG pointer te eessage btr 
/‘¥ menu tree address 

{t application 1b 

{t full window °x’ 

{¥ full window ‘y’ 

‘PT tull window “q’ 

/% full window *h’ 

/% screen width in pixers 

/% screen he:ght in pixels 

/t numoer of color planes 

/t width of one pixel 

/t nerant of one pirei 

/% mouse in/out of window flag 
i$ event multi return stateis: 
/t mouse x,y position 

/t button state, & # of clicks 
/t key state anc xeyboard char 


/¥ SURE window handle 
/i SURE cata window handle 
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i; 
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i; 


i/ 
i/ 
{i 
i/ 


Ti 
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WORD SURE shade = PEN INk; 
WORD = pen_shade = PEN INE; 
WORD SURE pen = 33 

WORD =s radius = 163 

WORD SURE height = 4; 
WORD. char fine; 

WORD char_aedium, 

WORD = char_broad; 

WORD = monueber = 3; 

LONG «= mofaddr = Ox0c; 

WORD = fi Je_handie; 

RYTE = fle _namelo4) = °%3 
BOOLEAN key_input; 

WORD key xbeos 

WORD = key_ybeg; 

WORD) =o key_xcurr; 

WORD kev ycurr; 


/4 SURE current pen shade 1/ 


/t saved pen shade t/ 
/t SURE current pen width i/ 
/t radius of state i/ 


/¥ SURE current char feight t/ 
/t character height for tine &/ 
/t character height for mediue %/ 
/4 character height for broad %/ 


/t mouse fors nuaber 1/ 
/t wouse torm address i/ 
/t file handie -> pict id/svy & 
/t current pict file nage t/ 
/4 key inputting state t/ 


/t- x posit for line beginning %/ 
/t y posit for line beginning &/ 


/¥ current x positicn i/ 
/t current y position i/ 
/¥ SURE window title i/ 


BYTE  twdw title = " SURE PICTURE WINDOW *; 
BYTE  twdw tdata = " SURE DATA WINDOW °; 


D usercolor(2}] = {1, 9}; 
‘Eouserbrush mtdbs 
RELK prushublé); 

® @6©>s Color_sel{N COLORS+!] = { 
N COLORS, 

Ox SLFFLO7IL, 

UperG Lr 2u, 

OxSSFFIOZSL, 

OxS4FFLO74L, 

OSScPPlOISL, 

OxSOFFIO7 EL, 

OxS7FELO77L, 

Ox SQFFIO78L, 

OvSPE OZ, 

Ox4tFFIOTAL, 

Ox42FRL07BL, 

ys Fe 07 Ge 

Ox44FF1O7DL, 

OX4SFFLO7EL, 

Ox 4orFIG7FL}: 


| | ------------------------------ t/ 
/t Mouse Data Structures t/ 
{ \------------------------------ 1/ 


WORD = erase broad[37] = 
7,7, 4, 9, 4, 


Ox0000, 0%0000, 0xG000, OxO000, 
Ox0000, Ox1f#0, Oxtf¥#0, Ox1Fff0, 


it data for scrotling t/ 
/& color bar i/ 


‘ft wouse tora tor broad eraser t/ 


/t mask for broad erase 1; 
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(x1##0, Oxift0, OxO000, 0x0050, 
0x0000, 0x0000, Ox0000, Ox00005, 
0x0900, Ox0000, Ox0G00, Ox0000, ‘t data for broad erase t/ 
Ox7Ffc, Oxd00c, Oxd00c, Ox600c, 
Ox600c, Oxd0c, Ox7ftc, 0x0000, 
Gx 0000, 0x0000, Ox0060, 0x0000 
5 
WORD = erase eediual3/) = / 
{ 


- 


mouse fora for sedium erasert/ 


I a 

Ox0G00, CxG000, Oxd000, 0xO000, / 
0x0960, 0x0000, Ox@7c0, Ox07c0, 
Ox07c0, OxO000, Ox0060, Ox0dD0G, 
0x0060, 0x9000, 0x0000, Ox0000, 
Ox0000, OxO000, O0x9000, 0x0000, =f 
0x0000, Oxiff0, Ox1830, 0x1839, 

Ox 1830, OxtFfO, Ox0000, Ox0006, 

0x 9000, Ox0000, Ox0G00, OxO000 


mask for mecium erase Ue 


c mall 


data for sediua erase Gi 


dy 
WORD erase fine{$7] = / 


\ 


gouse form ¢or fine eraser %/ 


Ta 1, 0 1. 

0x0000, 9x0000, Ox0000, Ox0000, 
0x0060, Ox0000, 09000, 020109, 
0x0000, Ox0000, Ox0000, Gx0009, 
0x0000, 0x0000, 040060, 029006, 
0x9000, Ox00G0, Ox00G0, Ox0000, — / 
Ox0000, 0x0600, OxO7C0, OxOdcd, 
OxO7c0, Gx0000, Ox0000, 0x9000, 
0x0006, 020000, Ox0060, 0x0009 


mask for fine erase t/ 


data for fine erase t/ 


/UUUUROUUCOROE OCCUR nn 
MUSESSESISESETODISCES ITD ITOC TESTO SPSS SES ETOP OSSSOSttt Tete tSSeseet ie iel el 


(tent teas/ 
/seut Local Procedures ties/ 
‘tt 1Uat/ 


MOSESESOTISLOSTSSOSCCETOOSECSS CC OPOSSLECe PTS SeSSSSCeLtTiSitesel ei iidl 
SUCRURUCCUUEUUC ES CUUUUORORSRUUU EEUU nn, 


[BN ---- on nnn nnn enn nnn e eee t/ 

it gin t/ 

[fanaa nner nn ww ewww enn nnn === t/ 

WORD 

mina, b) ‘¥ return min of two values t/ 


WORD oa, bs 
{ 
return{ (a¢b) ? a:b); 


Of 





[Oe gg a ae aes ae t/ 
{% max t/ 
(eee meen eT aaa t/ 
WORT 

max(a, b) 

WORD =a, D3 


f 
\ 


Retirnieta au) / ars Ob }s 


} 

| Jo wn nn mn nn nnn er nn nnn nan 1/ 
/t reverse t/ 
[eae 25 2085 SII Rtas t/ 
reverse(s) 

BYTE s{]; 


4 


WORD ‘SA eee 


/‘t return max of two values 1/ 


/t reverse string s in place $%/ 


POP teat ei-strienis)-!; 1 4 ps itt, j--) 


f 
\ 


c = s{3]; 
Sli} =sshjs: 
s{j] =; 


/‘t reverse %/ 


Pipa men ensccens a= saan === ==--= t/ 
it itoa t/ 
| }------------------------------ / 
itca(n, s) 

Brie Side 

WORD on 

{ 


WORD «61, Sign; 
if ((sign =n) ¢ 0) 
nh = -n} 
1 = 03 
do { 
Siitiiee ni . 10 + 707s 
y while ((n /= 10) > O73 
1f (sign < 9) 
siitti ==": 
SE seen 0ss 
reverse(s); 


/t itoe %/ 


/t convert n to characters in st/ 
/¥ record sign t/ 
/¥ make n positive t/ 


f¥ generate digits in reverse %/ 
/t order, get next digit t/ 
/t delete it t/ 
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double 
atof(s} /t Convert string s to double 4&7 
BYTE Std 
{ 
double val, power: 
RORD Vesion: 


for ( 120: sfids=’ 7 is sligs="\n? ai slids="\t's att} 
/t Skip white space i/ 


i 
je te Stl) == =") /¥ Sign t/ 
sign = (sfittj=='+') 2 10: -f; 
for (val =O; cfil 7= 0° Gh sli} <= °9’: 1++) 
Ver=ol0 foveal + sli) =? 0's 
if (si) == 7.7) 
Nace 
for (power = f; efi) d= 70’ && sli] <= 79% y i+) 
{ 
val = 10 # val + sf12 - °O'; 
power I= 10; 
I 
return(sign § val / power); 
y /¥ atofls) a 


te i/ 

/t string addr 1/ 

(RegcaeGs [oes --------------=- i/ 

LONS 

string addr (which! /t returns a tedinto LOND string addr U/ 


WORD = s which: 


f 
Y 
. 


LONG = where; 


rsrc_qaddr{R STRING, which, &where): 
return (where); 
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it rc_equal t/ 

IY Sl a a enna nanan $/ 

WORD 

rc_egual(pl, p2) /¥ tests for two rectangles equal &/ 
BRECT tol, 32; 

% 


if ({(pi-yo_x '= p2-og_x) i 
(pl-2g_y '= p2-7q_y) 
(pi->g_w '= p2Z->3_w) 
Col=yon f= p2-7y_h}} 

return (FALSE): 
return (TRUE! 


) 

Name es i; 

it rc_copy i/ 

em Re anew enema nama eee ee = = t/ 

VOTD 

rc copyipsboy, pdbox) /% copy source te destination rectangle %/ 


GRECT = $psbox; 
BRECT = k&ocbox: 


{ 
pcbox-7g_x = psbox->g_ x; 
pdbox-?9 y = psbox-7g_y; 
pdbox-/g_w = psbox->g wi: 
pdbox-?g h = psbox-?g_hi 
} 
| omnes t/ 
it rc_intersect 1/ 
eee eee t/ 
WORD 
rc_intersect(p!, 52) /$ coapute intersect of two rectanglest/ 
GRECT spl, tp2: 
{ 
WORD =Ssodtx, ty, tw, th; 
tw = min(p2->g x + p2->o_W, pl-r9 x + pl-%g wl: 
th = minip2-%9 y + p2->g th, pl-de_y + pl->g_h)s 
tx = max(p2-7g x, pl-dg_x)s 
ty = max(p2->g_y, pl->g_y); 
pe-)g_ x = ty: 
pl->g_y = ty; 
p2-7g w= tw - tx: 
ee ee = tieom ty. 
return( {tw 7 tx) && (th > ty) }; 
} 
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/t inside $/ 

1 aaa al aad aa / 

UWORD 

inside(x, y, pt) /$ determine if x,y is in rectangle %/ 


UWORD oxy YY} 
GRECT Spt; 
{ 
if ( (x d= pt-Pg_x} && ty F= pt->g_y) && 
(x < pt->q_x + pt->g Ww) && fy ¢ pt-dg_v + pt->9_h) ) 
return (TRUE); 
else 
return {FALSE}: 
} /¥ inside 3/ 


—<>.------____----_-_-__-_-_--_-_— 3/ 

it grect_to array t/ 

(Sees Sas SS $/ 

VOil 

grect_to arraylarea, array! /t convert x,y,w,h to upr It x,y and 3/ 
BRECT ~—Ssr Hareas [WEEN t/ 
WORD array; 

{ 


Sarrayt+ = area-79_X; 

Sarray++ = aree-/g_y; 

Barrayt+ = area-?o x + area-vo Ww - Ly 
Sarrey = area-7g_y + area-?g_h - 1; 


cass. 12. t/ 
it rast op i/ 
NS I a lahat hae v/ 
VOlD 


rast opimode, s area, s_mfdb, d_area, d_afdb} /t bit block level trns %/ 
WORD =o made; 
GRECT %5 area, td area; 
KFDB = 8s_afdb, o_afdb; 
{ 
WORD = pxyf8); 


grect_to array{s area, pxy); 


grect_to array(d area, &pxyl4)); 
wro_cpyftafvd: handle, mode, pxy, s_mfdb, d_afdb); 
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/% vdi fix t/ 
| §[------------------------------ t/ 
VOrd 


vdi_fix(pfd, theaddr, wh, h) 
MFDS tp td; 
LONG  theaddr; 
WORD wb, fy 


{ 

ptd-7fww = wh >> Ls 

pfd-?fwp = wb << 33 

pfd-2th = hs 

pid-snp = 1; 

pfd-yap = theaddr; 
} 
A It ata alate $/ 
i$ vdi_trans 1/ 
emeeeeeos asc = s=- = oS =" SS" S= $/ 
WORD 


¥di_trans(saddr, swb, daddr, cwb, fh) 
LONE saddr; 


WORD = swh; 
LONG daddr; 
WORD = dnb; 
WORE hs 


MFDB src, dst; 


vdi_fixtosrc, sagdr, swb, hl; 
src.ft = TRUE; 


vd: fix(&dst, daddr, dwb, his 
dst. tf = FALSE; 
wr _trofatvd: handle, &src, &dst ); 


} 
igen nn = == t/ 
fy trans gimege t/ 
0 II t/ 
VOID 
trans gieage(tree, ob}) 

LONG ~— tree; 

WORD = ob}; 
{ 


LONG taddr, obspec; 
WORD wo, hls 


obspec = LLGET(OB SPEC {obj}); 


taddr = LLGET(BI PDATA‘chspec}): 
WH = LWEETIB] WE(obspec)); 
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hi = LWGETIBT Hi (obspec) ); 
vdi_trans(taddr, wh, taddr, wh, hi); 


aw 


eeeteeoe-------------------- 4/ 
it do_cpen i/ 
SS aa t/ 
VOIE 


do open(wh, org.x, ofg_v, x, Y, w, h) /% grow and cpen specified wow %/ 
WORD =o wh; 
WORD =ssorg_y, Org_ys 
WORD eye on, tt 
\ 
Grateorowpexiorg x, org y, 21, 21, x, yy my hs 
wind open(wh, x, y, w, hd; 


} 
dda] 2s.>>>---"--~--~"~~ t/ 
/% do close t/ 
S—eeeeeooooo----------------— 1/ 
VOID 
do ciose(wh, org x, org _¥) /t close and shrink specified window %/ 
WORD =—sowh; 
WORD »=ssorg_ x, org_y: 
{ 
WURD = ok, yy Wy, he 
wind get(wh, WF CXYWH, bx, ky, dw, &h); 
wind closeiwh); 
Sascecipinkwoy (Org %, OG y, 2), 2), x, y, #, HTS 
} 
eas... --7--.---------___—— 1/ 
it set clig i/ 
Sitiieiaascss> > "~~" "~~ t/ 
VOID 
set clipiclip_fiag, S area) /% set clip to specified area %/ 


WORD =—seclip_ flag; 
BRECT %s area; 


{ 


WORD = pxyf4); 


grect to array{s area, pry); 
vs clip(vdi_ handle, clip flag, pxy); 
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/} draw rect $i 
[oon noe nn nnn nnn n none nnn nen t/ 
VOTD 


draw rect (area! 
GRECT =. Sarea; 


if 
L 


WORD pxyli0]; 


oxyf0] = area->g_x; 

pxy(l] = area->g _y; 

oxy(2] = area-7g_x% + area->g_w- 1; 
pxy{3] = area->g_y + area->g_h - 1; 
pxyl4) = pxyf2); 

Prvigie= oryisi: 

pxy{3) = pxyll); 

pxy({6] = pxyl0); 

pxy{7] = pxyl3); 

pxy(8] = pxyl0); 

pxyt9] = pxryfl); 

v pline(vdi handle, S, pxy); 


} 

eee eee 1/ 

it align x t/ 

[OO ae ahaa t) 

RORD 

align x(x} ‘% forces word alignment tor column position %/ 
MUR Ox /$ rounding to nearest word $/ 


r 
\ 


return ((x & Oxff#G) + (Cx & Ox000c) 7 OxOG10 : G))s 


et 


ASCCOSCOCOOSISSISSOOCSSSSLOCSSOOSISCLSOLOSSISTECTOSOTILICCCOSSCSS ESSE 0 Fi 
Perec e eee cece eee TE TO UTEP ESTEE SPSS TTCECCCCCCSCCCSOSOSOLECOSORCECECES SE 


/tits sttt/ 
(thts Advanced Dialog Handling bith) 
($48 stit/ 


OSESTSECSSORITCSCD POPS SCOCCOCOSCSCOSSOSSC TOS SSOSTECEOSCCOLOSSOSOLOL ELS 
PSSESSETIDOSTOSCICISSISOSOPCUCILISSSSCPCLTTOSESOSeSeres tte Peeseret tile ef 


(OOS IT alata al taal ate $/ 
/t set select $/ 
eee Seo t/ 
VOIO 


set select(tree, obi, init_nc, bind, arry) 
LONG tree, bind({], arry{]; 
WORD = =obj, init_no; 


oe) 





WORDn, nobj, cob), count; 


indir _obj(tree, obj); 

bind(G) = LLGET(OB SFEC(oby)); 
LLSET{OB SPEC (obj), ADDRibind)}; 
bind£i} = ADDR (arry); 


n= (WORD) arryf0]; 

count = 9; 

for (cob) = LWGET(OB HEAD (ob))); cobj '= cb); 
cob} = LWGET(QB NEXT (cobj))) 


{ 
indir obj (tree, cobj); 
LLSET(Qb SPEC(cob}), ADDR( &arryfcount + 1] )); 
count = (count + 1) 2% ns 

} 


nobj = LWOET(GB NEXT {obj)); 
indir_obj(tree, nob); 
LLSET(OB SFECinobi), ADDR( &arryfi + imit_nc 4 nn] 1); 


a 


laaaad aaa: (7a aa t/ 
it get select t/ 
[OS GI laud ala 1/ 
WORD 


get select(tree, ob}! 
LONG = tree; 
WORD = ab}; 
{ 
WORD =onobj, cab); 
LONG bind, arry, teep; 


bind = LLSET(GB SPEC iob)}); 

dir obj(tree, obj); 
LLSET(OB SPEC (obj), LLGETtbind)?: 
arry = LLBET(bind + sizeof (LONG) ); 


for (cob) = LWSET(CB HEAD{ob))}: cob) '= ob); 
cob) = LWGET(GB NEXT (cobj))) 
{ 
dir _obj(tree, cobs); 
LLSET(QB SPEC cob3), LLGET(LEGET(OB SPEC{cob3)))); 


nob} = LWOET(OR NEXT{ob)!}); 

dir_obj‘tree, nobj); 

teap = LLBET(OR SPEC (nobj):; 
LLSET(GB SPEC (nobj), LLGET(temp)); 

return (WORD) (temp - arry) / sizecf(LONG) - 1; 
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‘ acve do t/ 
bYnn nnn mn rrr rr nnn anne nme t/ 
VOID 


move doitree, obj, inc) 
LONE tree; 
WORD = obj, inc} 
{ 
WORD cob); 
LONG on, bind, arry, limit, obspec; 


ob) = get _parent{tree, obj); 

obj = LWOET(OS NEXT(ob3)); 

bind = LLSET(GE SPEC {ob))}); 

arry = LLGET(bind + sizeot (LONo)); 
mn = LLGET{arry) & sizeof (LONo); 
ligit = arry + 0; 


for (cobj = LWGET(GB HEAD(eb3)); cob} '= obj; 
cob} = LWEET{Ge NEXT (cobj))) 


f 
\ 


obspec = LLBET(GB SPEC (cotj)); 
obspec += inc § sizeof (LON); 
while (obspec <= arry i; obspec > limit} 
obspec t= n $ ((obspec > Limit)? -ts L)3 
LLSET(GE SPEC(cobi), obspec); 
} 


redraw do(tree, cbj); 


} 

Saas s5s424- t/ 
/t redraw do t/ 
aaaaaaaasss. 7... -- t/ 
VOID 


redraw do(tree, obj) 
LONG = tree: 
WORD = ob); 
{ 
BRECT 0; 


objc_xywh(tree, obj, 4a); 


Gaieies- ooe0.9 ¥ ~= 5* ¢.9 W t= 6: 0.9 h t= 9} 
obyc_draw(tree, ROGT, MAX DEPTH, c.g x, o.g_y, 0-g_W, 0.9_h); 


fol 





/t xtend do $/ 
Nee a eens GS t/ 
HORD 


xtend do(tree, obj, xtype) 
LONS ~=—Ssétree} 
WORE obj, xtypes 
{ 
LONG = obspec; 


switch (xtype! { 
CaseweoeL: 
obspec = LLGET(OB SPEC(ob})); 
obj = get_parent(tree, ebj); 
ob) = LWOET(OB NEXT(obj)); 
LLSET(OR SPEC (obj), obspec); 
redran do(tree, obj); 
break: 
case X FWD: 
acve dco(tree, obj, 1); 
redraw do(tree, obj); 
breaks 
e X_BAK: 
move do(tree, obj, -1); 
redraw coftree, obj); 
breaks 
default: 
breaks 


Ca 


wn 


} 
return (FALSE}s 


[¥------------------------------ t/ 
/t hid] dial 1/ 
| t---------------------2-------- 1/ 
WORE 


find! dialitree, def, x, y, w, n) 

LOND) ~=—strr ee; 

WORD defy 

BORD =x, yy wy, DG 

\ 
WORD = xdial, ydial, wdial, Adial, exitobi; 
WORD = xtype,i,J; 


fore center(tree, &xdial, kydial, &wdial, &hdial); 

form dialf{d, x, y, wW, h, xdial, ydial, wdial, hdial); 

fore dial(i, x, y, w, fh, xdial, yoial, wdial, hdial}; 
objc_draw(tree, ROCT, MAX DEPTH, xdial, ydial, wdial, hdial); 


2 





FOREVER 


{ 
1 


exitoby = form do(tree, det) & Ox7FFF: 
ytype = LHBET‘OB TYPE (exitobj)) & OxFFOO; 
»¢ ('ytype) 
break; 
if (xtend do(tree, exited), xtype)! 
break: 
} 
Wen eaben cee ky Vow, ti, Xdlal, ydial, woial, hdial); 
fora dial{3, x, ¥, w, h, xdial, ydial, wdial, hdral); 
return (exitob):; 


} 

i {------------------------------ t/ 
it dr_code t/ 
{}¥----------------- 2 eo t/ 
WORD 


dr_code(pparas) 

LONG «= pparmss 
FRRMELE = pbs 
WORD pxyfiG], hl, wos 
LONG taddr; 


LBCOPY(ADDR(&pb), pparms, sized (PARMELE)}; 
set cliptTRUE, (GRECT &) &pb.pb_xc); 


taddr = pb.pb para; 

userbrush afdb.ap = LLOET{BI PDATA{tadar)); 
hl) = LWOET(BT HL (taddr))s 

wb = LWGOET(BI Wi(taddr}}s 

usertrush sfdb.¢wo = wb << 3s 
userbrush_afdi.fwe = wb >> {; 

userbrush atdb.th = hl; 

userbrush_eatdt.np = 1: 

userbrush afdb.ff = 03 


pxyfO} = pxyll] = 0; 


Paribee= AWGss 5) ~-Bl} 
iyiode= hl = | 
exvl4) = pb.pb_ x; 
pxyfS} = pb.pb_y; 


t 


pxyl6) = pxyf4] + pb.ph w - 1; 
pxyf{7] = pxyf3] + pb.pbh - 4; 


vrt_cpyfa(vdi handle, 2, pry, &userbrush afdb,&sern_mfdb, usercoior): 


is 





if((pb.pb currstate'=pb.pb prevstate)!i(pb.pb_currstate&SELECTED) ) 


f 
% 


if (pb.pb_currstate & SELECTED) 
vs] color(vdi_ handle, 1); 
else 
vs] coler{vdi handle,0); 
ve} width(vdi handle, 1); 
vs] _typeivd: handle, FIS SOLID}; 


po. pb _%--3 

pb.pb_y--s 

pb. pu_wtts 

pbh.pb_ht+; 

draw rect({6RECT §) &pb.pb_x); 
} 
set clip(TRUE, &pict work); 
return (0); 


PUSSCOCSEESSDSTDOTESPOCSOSESOCOSCOLISOSSSOCOSSOLCLOOOSOSESCOCSSOLLOLE LES 
PUEDE RSEDOSESCCCOSOCOSOLOCOOOLICOOCEOCOSSCOCESCOSCOCCOEOCCOC ODOC CO LOLEL 


Jaa BES 
AUN Work Area Manageaent gaat) 
{tant BUt/ 


ATONE / 
ESDOSOSSIPSCODCECOSESECECOOOSOSOLESOSOSSSECCOCOSSOPEISOLSSOSESOOOS SSL SS 


{ J------------------------------ t/ 
i set work i/ 
pee eee — ~~ t/ 
Voie 
set pict work (slider undate! 
EOCLEAN = siider_ update; /Vedges, and updt sliders if reg’d %/ 


WORD is 


wind get{pict fnd!l, WE_WXYWH, 
kpict_work.g z,&pict_work.g y,&pict work.g w,kpict work.g h); 


pict_undo.g w = pict work.g w; 
pict_undo.g h = pict_work.g h; 
itt! /% clamp work area to page edges %/ 

pict undo.g x = align x{pict_undo.g x); 

if (4; = pict_mtdb.fwp - (pict_undo.g x + pict_undo.g_w)) <¢ 0) 
pict_undo.g x += 13 

if (fa = pict _afdb.fh - (pict_undo.g_y + pict_undo.g h)) < 0) 
pict_undo.g y += 13 
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VOrD 
set_ 


BOO. 
{ 


/tt/ 


if (slider_update ) 


wind set(pict_hnd], WF_HSLIDE, UMUL DIVipict_undo.g x, 1000, 
pict _efdb. twp - pict_undo.g_wi, 0, 0, 0); 

wind set(pict_hndl, WF_VSLIDE, UMUL BlVipict _undo.g y, 1006, 
pict mfdb.¢h - pict_unda.g h), 0, 6, 0); 

wind set(pict hind], WF HSLSIZ, UMUL Divipict_work.g_w, 1000, 
pict_afdb.fwp), 0, @, 0); 

wind set(pict_hrdl, WF_VSLSIZ, UMUL DlVisict work.g_h, 1000, 
pict_afdb.fh), 0, 9, 9); 


/t only use portion cf work tarea on screen %/ 
rc_intersect(&scrn_area, &pict_work); 
pict undce.g w = pict_work.g w: 
pict_undo.g h = pict_work.g h; 


datz werk (slider update) 
EAN slider update; /tedges, and updt sliders if reg’d %/ 


WURD on 


wind getidata hind), WR WXYWH, 
kdatea work.g x,tdata work.g y,bcata work.g w,kdata work.g fi); 


data_undo.g w= data work.g a; 
data_undo.g h = data work.c fh; 
/¥ clagp wore area to page edges t/ 
Gata _undo.g x = align_xfdata_undo.g x); 
rf t(; = data_afdb.fwp - (data_undo.g x + date_undo.g w)} ¢ 0) 
data_undo.g x += 13 
rf ((i = data_atdt.fh - (data _unde.g y + data_undo.g h)) < 0) 
data_unde.g y += 13 


1f (slider update ) 
{ 
wind set(data findi, WF_HSLIDE, UMUL DiVidata_undo.g x, 1000, 
data efdb.fmwp - data undo.g wi, 6, 0, 6); 
wind_setidata hndl, WF VSLIDE, UMUL DiVidata undo.g y, 1006, 
data_afdb.fh - data undo.g fh), 0, 6, 9); 
wind set(data hndl, WF HSLS1Z, UMUL_DIVidata_work.g w, 1006, 
data afdb.fw#p), 0, 0, 4); 
wind set(data hndl, WF VSLOIZ, UMUL DIVidata weork.o fh, 1000, 
data _mfdb. fh), 9, 0, 9); 


fee 





/t only use portion of work _larea on screen b/ 
rc intersect(&scrn_area, &data work); 
data_undo.g_w = data work.g w 
data_unde.g h = data work.g hj 


} 
(DOSS a a a a aia i/ 
it seve _werk t/ 
[OS POSE Nt ail a lc ata t/ 
VOID 
Save pict_work() /t copy pict_work to pict_efdb %/ 
GRECT tap area; 
rc_copy(tpict work, &tap area); 
rc_intersect(&scrn area,&tmp area); 
graf mouse(M OFF, Ox0L); 
rast op(3, Step area, &scrn_sfdb, bcict_undo, pict mtdt); 
graf mouse(A ON, Ox0L); 
} 
VOID 
cave data work{) /t copy data_work to data _afdb &/ 
{ 
GRECT tap areas 
rc copyiedata work, &tap area); 
rc_intersect(&ecrn area,&tan area); 
grat mouse(N OFF, OxOL): 
rast op(3, &tap area, &scrn_afdb, data undo, édata afdb); 
graf mouse'M Ok, OxOL}s 
} 
a a aa laa t/ 
/t restore work t/ 
if eam meine hmiaeh eerie ci aricg irr ciate 1/ 
VOib 
rst_pict_work() /‘t restore pict work from pict_afdb &/ 


{ 
BRECT = tep_areas 


rc_copy(&pict work, &tep area); 
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rc_intersect(éscrn_area,dtap area}; 

graf mouse(M OFF, OxOL}; 

rast op{3, &pict_undo, &pict_mfcb, ktap_area, &scrn_mtdb); 
graf mouse(R GN, OxOL); 


VOID 
rst data_work() /t restore data work from data mfdb $/ 
{ 

GRECT tap area; 


rc_copy(&data work, &tap area); 
rc_intersect(&scrn_area,&tmp area); 

graf mouse(M OFF, 9xOL); 

rast on(3, édata undo, &data_mfot, &tmp area, &scrn_stdb}; 
graf _eouse(M ON, SxOL); 


MPIPILESLOSLCCELCUSCCESISCSOSSOCOSSCOS SILOS TOS TCSSECSCCOSCOSS OCS CCOL ECS 
PSSSCSTESCESSCCSCOSI SIFT TLOSTOSETESCOCOSCOSSSCCOCSCCSCOCCCOC ELST SESE Le, 


[M43 1334/ 
{shit Object Tree Manipulation 1453/ 
{thi $343/ 


STETECESCSSSCOLOSSST CSCO CECELOCOCCESLOSCESCOSPOrrecesecetetessiter gs 
MUSESCRSOTTECOSCCOCSCOSCCCCOSCO CSS OSCISTOSTOSOSLOSCOTOCECOCSSSSOSLOCSL YS 


Reemtaaee gear 2502 eno 1/ 

it do_ob) / 

[{-~--~------------------------- 1/ 

VOID 

do obj(tree, which, bit) /% set specified bit in object state %/ 


LONG = tree: 
WORD which, bits 


{ 
WORD = state; 
State = LWGET(QE STATE (which)}; 
LWSET(GE STATE (which), state i bit); 
} 
[| ------------------------------ t/ 
it undo ob} / 
[en en ee en nn -------------------- 1/ 
VOID 


undo_obj (tree, which, bit) /t clear specified bit in object state %/ 
LONG = trees 
WORD =e which, bit; 


lai 





ates | 


WORD = state; 


state = LRGET(OB STATE (which) }; 
LHSET(CE STATE (which), state & “bit); 


eas > > ames >>> ~*~ ----------- t/ 

it sel _obj 3/ 

eee oS --------- t/ 

VOID 

sel _obj(tree, which) /¥ turn on selected bit of spcfd object %/ 


LONG ~— tree; 
WORD = which; 


do obj(tree, which, SELECTED): 


} 

FO aaa ) 

/t desel obj} t/ 

(SESS t/ 

VOID 

dese] obj(tree, which} /$ turn off selected bit cf spctd cbjectt/ 


LONG trees 
WORD which: 
ib 
undo obi(tree, which, SELECTED); 


enad menu(which) /t enable specifiec menu ites %/ 
WORD =o which: 
{ 

unde obj(gl_ menu, which, DISABLED}: 


hee 


tees sos tc t/ 
it unflac ob} i/ 
NIN aa a t/ 
VOID 


unflag obj(tree, which, bit} 
LONG tree; 
WORD =o which, bit; 
{ 
WORD = flags: 


flags = LWEET(DE FLAGS (which) }s 
LWSET(OB FLAGS which}, flags & “bit}; 
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it flag cb) 4/ 
[eee t/ 
VOID 


tlag obj(tree, which, bit) 
LONG tree: 
WORD =o which, bits 


{ 
WORD = Fl eqs 
flags = LWGET(OR FLAGS (which) }; 
LWSET(QB FLAGS iwhich), flags 1+ bit); 
} 
J) BRS COS SESE S 1/ 
it indir ob) t/ 
| ys 2 SSRIS SS III t/ 
WOLD 
indir obj(tree, which) 
LONG = trees 
WORD =o which; 
{ 
flag _obj(tree, which, INDIRECT); 
} 
| $------------------------------ t/ 
it dir obj i/ 
ee t/ 
VOID 
dir obs(tree, which) 
LONS ~—s tree; 
WORD =o which; 
{ 
unflag_cbj{tree, which, INDIRECT); 
j 
OE t/ 
rp | get _parent t/ 
Oo een SSS t/ 
/t 


$ Routine that will find the parent of a given object. The 
t idea is to walk to the end of our siblings and return 

$ our parent. It object is the rect then return NIL as parent. 
t/ 

WORD 

get _parentitree, obi) 
LONG tree: 

WORD obi} 


ip 
t 


TES) 





WORE  pobjs 


sf iob} == NIL) 
return (NIL); 
pcb) = LWOET(QB NEXT(ob3}); 
1f (pobj '= NIL} 
\ 
while( LWGET(OB TAIL (pobj}i ‘= ob} } 
{ 
ob} = pod): 
pobj) = LWGET(OB NEXT (o0bj)); 


} 
return (pob3); 
} 
eee = t/ 
it obic_xywh t/ 
DY SIN a lal t/ 
VOLE 
objc_xywh tree, obj, p) /t get x,y,w,h for specified cbhject %/ 


LONG tree; 

BORD obj; 

GRECT = tp; 

{ 
objc_offset(tree, obj, &p-tq_x, bp-rg_v)y 
o-yg_ w= LWGET(GB RIDTH(obj)); 
p->g h = LWOET(GH HEIGHT fob3}); 


ASESSECCCOSESTOSOSSCIODSISSS TODOS POLOSOSCOSTISECOSOSIELOCOCEOSISLECOLS ST 
JUSUUCU COU EO ee 


/tttt £033/ 
Jet Fiie Fath Name Functions t34t/ 
‘yin ttt9/ 


PETESERESESCSOSECS ESTES DSOSETT SCOTS StS SCSSEOSCCOCEOOSCOCOCSOSOSOS SS 2 2, 
PSE RC STRESS TOS TOFS O TOT ETOSP SDT D PSS SSTL POS PDO STECEOSOSESISSESCECCSLELD T 


WORD 
diai name ( name } /t dialogue box input filename %/ 
BYTE inane; 
{ 
EGNESs tree 3 
LONS ted addr ; 
Bile <t:% 
Us 
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BRECT box: 


objc_xywh (gl @enu, SUREFILE, &box!; 
rsrc_gaddr( FR TREE, SURESVAD, &tree! ; 
ted addr = LLGET(QE SPEC (SURENAME! ); 
LLSET( ted addr, ADDRiname) ) ; 
LWSET! TE TXILEN(ted_addr),B): 
namefO] = *\0’s 
if(find) dial (tree, SURENAME,box.g x, box.g y,box.g w,box.g_fi)==SURESOK) 
{ 
—— 


} = 0; 
while (TRUE) 
( 
c = namelit+d; 
eel} 
break 3; 


Mitte = o ae (co t=. *)) 
namelj+t] = c 5 
} 
if ( name ) 
strcey( &namelj], ".DOG" ) ; 
desel ocbj(tree, SURESOK): 
return (TRUE); 


desel oby(tree, SURESENL); 
return (FALSE): 


get _path(tap path, spec) ft get directory path nage i/ 


BYTE 


{ 


itap path, spec; 
WORD cur drv: 


cur_drv = dos gdrv(}: 
tap_pathl0] = cur_drv + *A’: 
tap path{!] = 7:’3 
tap _path(z] = “\\'s 
dos_gdir(cur_drvtl, ADDR(&tap path(3))); 
if (strlen(tmp path) > 3) 
Strceat(tep oath, "\\"); 
else 
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tap _path{2] = ’\9"; 
strcat(tmp_path, spec); 


} 

/§------------------------------ 1/ 
it add _file_naae t/ 
Rg 1/ 
VOID 


add file nmame(dname, fname) /% replace name at end of input file spect/ 
BYTE Idname, t¢namey 


{ 
BYTE ci 
#ORD rs 
11 = strien(dnamel; 
while (11 && ({ic = dnamelii-f£]) '= \WE &E fc f= C8*))) 
liga 
dnazefii} = "\0'; 
strcatidnate, fname); 
} 
| {------------------------------ ti 
it get file t/ 
[fa 3/ 
WORD 
get_file(loop) /t use file selector to get input filet/ 


BUDLEAN = Loop; 

{ 
WORD = ¢s_ i exbutton; 
BYTE = fs_iinsel[13}; 


while {TRUE} 


f 
\ 


get _pathitile name, "8.D00"); 
fs linself[9] = *\0’; 


fsel_input(ADDRifile name), ADDR(ts iinsel), &fs iexbutton); 
if (fs_iexbutton) 


{ 
add file name(file name, fs iinsel): 
file handle = dos open (ADDRifile name), 2); 
if ('loop i; (ioop && ‘DOS ERR)) 
returnil); 
} 
else 


return (0): 
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} ft get file W/ 


PSSTSSOTESOTIIOC OOPS PTET SSTOTOSSCTL OSS PSeTTSSS reser sseetteeeelesets G7 
eessiecercoeseseccceececeeceereree rer rras lr eererererereeser essere fo 1 


/ttt 
Aan 
{tant 


Soft Cursor Support 


that) 
3S o 9) 
R4hi/ 


ADU en 
(UU 


FS SS ROS SS / 
it cursor t/ 
(0 i/ 
VO1D 


cursor (color) 
WORD color: 
f 
4 


WORD = py C4]; 


pxyl0] = key_xcurr + |; 

oxv({1J = key_ycurr + gi_hspace; 
pxy{2] = key_xcurr + 1; 

pxy(3J = key_ycurr - gl_hbox: 


v5] _color(vdi_handle,color); 


vswr sode(vdi handle,MD REPLACE); 
vs} type (vdi_handle,FI$ SOLID); 
vs] width {vdi handle, PEN FINE); 


graf_mouse!Mh OFF, OxOL); 


/t turn cursor on, color=BLACK %/ 
/t or cursor off, color= WHITE %/ 


wind getipict find! WF TOF, &curr hndl,G,0,0); 


1¢ (curr find) == pict_tndl) set clip(TRUE, &pict work): 
if (curr_hndi == data hndl) set _clip(TRUE, &data work); 


v_pline(vdi handle, 2, pxy?s 


if (curr _hndl == pict_hnd] ) set_ciip(FALSE, &pict_work!; 
1¢ (curr _hnd? == data hnd! ) set _clip/{FALSE, &data_ work); 


graft _gouse(M_ON, Ox0L); 
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it curs on 1/ 
eee oo ae es t/ 
VOid 
curs on() ft turn ’soft’ cursor ’on’ i/ 
{ 
cursor (pen shade); 
} 
Ea inal t/ 
/% curs aff i/ 
a2. + t/ 
VOID 
curs aft () fE turn ‘soft’ cursor ‘oft’ t/ 
{ 


cursor (PEN ERASER}; 


tence 


USSSCLSSSSSTISSLSSTILISSOTESCCOOLSCOSSSTIOCSOOSESIOOSIOOSSTOCLOLSL LOL Si 
PSSUSSSSOSISSOSESCSTSOSSPLESESTT CDSS CLELT COTE See SECC POLST TT ete Lette. 8 


iti sUtt/ 
fetus Menu Handling t3T/ 
itty way / 


MPCCOTTOCS COTES STSSCCILESISSTSCCESILICES ESTOS CECI CC ELC CESCTSTOLe Letter sg 
POSSSTSESESSOCTOCTOSSSOOC OSI CSCOCSCSOSSSTSCOSSRICTOCCSOSCSLSSSOOSO OS SS 


igs 7 oho oe ee = === t/ 

it hid. menu i/ 

Sa aa a aati t/ ft curr hrdl is known if 
called from nndi msg 4%! 

BORD 


RD 
hngi menuftitle, ites) 
RE title, item; 


WORD dene; 


BRECT boys 


ee 


grat mouse(ARROk, GxOL); 
done = FALSE; 
Switch (titie) { 
case SUREDESF: /¥ menu selection name-DESk t/ 
t¢ (ites == SUREINFS) 
dc _about(); 
break; 


case SUREFILE: /t menu selection name-FILe t/ 
Switch (iter) 


Ip 
\ 
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case 


SURELOAD: 

do _load(TRUE); 
break; 
SURESAYVE: 

do seveli; 
break; 
SURESVAS: 

do svas(); 
break; 
SUREABAN: 

file handle = 
do Toad (FALSE); 
break: 
SUREGUIT: 

done = TRUE: 
break: 


Egor 


case 


baAce 


Case 


case 


SCROFTS: 

switch (ites! 

{ 

case SUREPENS: 
do penselect(); 
break; 

case SUREERHAP: 
de erasel); 
breats 

case VIERITEM: 
do _viewl); 
breaks 


} 
£ 


SUREQPTS: 
switch (iten) 
{ 
case SUREFLOT: 
do plot(); 
break; 
case SURECOMP: 
do coeputel); 
breaks 
case SUREHARD: 
de_hardcopy(); 
break: 
case SLORTRAN: 
do slow transition(); 
break; 
case FASTTRAN: 
de_fast transition()s 
break: 
case SURESTAT: 
do states{); 


/t menu selection 


fl 


ik 


it 


ik 


/% 


ft 


/% 


/% 


it 


/% 


it 


/% 


ft 


name-LOAd / 


menu selection name-S4Vve t/ 


menu selection name-SAVEAS &/ 


menu selection rame-ABANDON &/ 


des open(ADDR( tile name}, 2); 


menu selection name-QuIT $/ 


menu select name-SCR-OFTIONSS/ 


menu select name-PENS/ERRSERS / 


genu selection name-ERASE &/ 


menu selection name-VIEW ...8/ 


menu name-SURE-OFTIONS 1/ 


menu rame-RELIABILITY PLOT &/ 


eenu name-COMPUTE $/ 


menu mame-HARDCOFY $/ 


menu name-SLOW TRANSITION &8/ 


menu name-FAST TRANSITION 8/ 


menu nas@e-ENTER STATES $/ 
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breaks 
case SURECONS: /t menu name-ENTER CONSTANTS = ¥/ 
do _constants(); 
break} 
i 
} 
menu tnormal(g) menu,titie, TRUE); 
graf eouse(monueber, acetaddr); 
return (done); 


} 
(pesos 35606 1/ 
/t dc_about t/ 
LE a aaa lad t/ 
VOID 
dc_about!) /t display SURE Info... i) 
{ 
LONS = trees 
GRECT box; 
objyc_xywh(ol senu, SUREDESK, &box); 
rsrc_gaddr (A TREE, SUREINFD, Stree); 
hndi dial(tree, 0, box.g x, box.g_y, box.g_w, box.g_h)s 
dese) obj‘{tree, SUREOK); 
} 
| \----------------------------- 1/ 
it do view t/ 
eee = = =~ = -- = --—— = 1/ 
VOID 
do view!) VY odisplay zooming available 8/ 


[ 
LONE = tree; 
GRECT box: 


set clipiTRuE, &pict_undo); 
obsc xywh’gl menu, SUREDESK, Sbax); 
rsro qgaddr (A TREE, FITDIAL, Stree); 
hid? dial(tree, 0, box.g_x, box.g_y, box.g_w, box.g hi; 
dese] obj(tree, FITGK); 
for ( cur_fit = FULLITEN ; 
('(LWEET( OB STATE{ cur fit } ) & SELECTED) } ; 
Gutet list } 
/t set xferm{) 3 
set _clip( TRUE, &pict_work area ) ; 
ror_mesc!);2/ 
set clip (FALSE &pict undo); 
} 7/4 Go view t/ 
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/$ = =do_load t/ 


/¥ curr hndl is known $/ 
VOD 
do loadineed name) /t load file t/ 
BOOLEAN need _name; 
{ 
if ('need name i: get_file(TRUE}) 
( 
if ('DOS ERR) 
{ 
dos read(file handle, size pict afob,loc pict_mfdb); 
dos read(file handie, size cata mfdb,loc_data midbi; 


dos close(file handle); 
enab menu (SURESAVE): 
enab_menu{SUREABAN) ; 
rst pict work {); 

rst data work‘); 


} 
| 1 = a a t/ 
/t do save 1/ 
1 aaa ac 1; 
VO12 
do save() /t save current named SURE oicture ¥/ 


f 
% 


wind get{pict_fndi WF TOP, &curr hndi,0,6,0): 
if ($file name) 
{ 
file handle = dos open(ADDRifile name}, 2}; 
if (DOS ERR) 
file handle = dos create (ADDRitile name} ,0); 
else 
if (form _alert(1, string_addr (SUREGVWR)) == 2) 
return: 
} 
dos_write(file handle, size pict_afdb, loc pict _efdb); 
dos _write‘tile handle, size data atdb, loc_data afdb); 
enab_menu(SURESAVE): 
enab menu{SUREABAN) : 
dos close{file handle); 


1 
f 
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it do Save as i/ 

[Ee aaa aeaaces t/ 

VOID 

do_svas(} /t save SURE picture as named &/ 


BYTE namelis); 
if (dial naaelénameld))) 
{ 
add file nase(file name, name); 


de_seve(); 
} 
) 
eee aoe = t/ 
it set pen t/ 
PY OO ta lalate ial t/ 
VOID 


sei _penipen, herght! 
WORD =o pen, height; 


SURE pen = pens 

SURE height = height; 
monumber = 53 

eotacdr = Ox0L; 


eeeeeeeasessssssss se t/ 
ft set eraser t/ 
a aaa sete t/ 
VOID 


cet eraser (pen, height, eraser) 
WORD fen, height; 
BYTE teraser: 
| 
SURE pen = pen; 
SURE height = height; 
SURE shace = PEN ERASER: 
monueber = 259; 
mofaddr = ADDR(eraser); 


} 

|} ------------------------------ 1/ 
it set_color +/ 
I a a i) 
VOIS 


cet color{tree, obj, color nua, bind) 
LONG tree, ¥bing; 

WORD obj, color nua; 

{ 
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set select{tree, obj, color_nurm - 1, bind, color_sel); 


(mame = eee i; 
fy get_color 1/ 
aaa oS oo t/ 
WORD 


get _color(tree, ot)!} 
LONS tree; 
KORD =ocb); 


4 


return get_selectitree, obj) + 
} 
| $------------------------------ / 
it do penselect i/ 
Magers 2 eee t/ 
VOID 


— 


do penselect (} 


{ 


/t use dialogue box to input selection &/ 
/t of specified pen/eraser 1/ 
KORD exit_obj, pse!_ obj, color; 

LONS = tree, bindf{2]; 

BRECT box: 


set clip(TRUE, &pict_unda}: 
objyc_xywh(gl menu, SUREPENS, &box!; 
rérc_gaddr (KR TREE, SUREPEND, &tree); 
iM; /¥ first setup current selection statel/ 
switch (SURE pen) { 
case FEN FINE: 
cel obj(tree, (SURE shade ‘= PEN ERASER}? 


SUREPFIN: SUREEFIN}s 
radius = 16: 
break: 


case PEN MEDIUM: 
sel obj(tree, (SURE shade '= PEN ERASER)? 


SUREPMED: SUREEMED); 
radius = 16: 
break: 


case PEN BROAD: 
sel obj(tree, (SURE shade '= PEN ERASER!? 
SUREPBRD: SUREEBRD)s 
radius = 20: 


break; 
} 
set_color(tree, DEMOPCLR, pen shade, bind); 
/ti/ ft get dialogue bex input i/ 


exit_obj = find! dial(tree, 0, bex.g_x, box.g_y, box.g_w, bex.g h); 
for (psel_obj = SUREFFIN; psel_obj <= SUREEBRD, psel obj++) 
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if (LWEET(GE STATE‘osel obj)) & SELECTED) 
{ 

dese! obiitree, psel obj); 

break; 


color = get _color{tree, DEMOPCLA); 


if (exit_oby == SUREPSOE) 
switch (psel obj) { 
case SUREPFIN: 
set peniPEN FINE, char fine); 
SURE shade = color; 
breaks 
case SUREPMED: 
set pen (PEN MEDIUM, cher_sediua); 
SURE shade = color; 
breaks 
case SUREPBRD: 
cet nen (PEN BROAD, char_broad); 
SURE shade = colar; 
break; 
case SUREEFIN: 
set eraser(PEN FINE, char fine, 
(BYTE 1) erase fine}; 
break; 
case SUREEMcD: 
set eraser (PEN MEDIUM, char _mecius, 
(BYTE $) erase aediua! ; 
break; 
case SUREERRD: 
set eraser (FEN BROAD, char broad, 
(BYTE %) erase broad); 
breaks 
} 
pen shade = colors 
dese] obiftree, SUREPSOK)s 
} 
elce 
dese] obj(tree, SURECNCL); 
set ciip(FALSE, pict undo}; 


} 

[ Jenn nnn wenn nn nnn nnn nn nnn nnnn--- / 

it do erase $/ 

[Pornnn----- 2 on nn eon + - 2+ = ----- {/ 

VOID 

do erase (} /% clear the *picture* and ‘data’ buffer (mfdb’s) 
and re-init, the screen +/ 

{ 
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BRECT tap area; 


tmo area.g x = 0; 

tmp _area.g y = 9; 

tmp area.g w= pict_etdb. twp; 
tap area.g fh = pict_afdb. th; 


rast op(0,&tao area, &pict_mfdb,&tep_area,&pict_afcb); 


tip _area.g # = data _efdb. frp; 
tap area.g h = data _mtdb.fh; 


rast oni0,&tap area, bdata_mtdb,&tep_area,bdate_atdb); 
rst pict _worki); 

rst data work (); 

init _data(); 

hum states = [; 

ydata = 1; 


ADO oe 
OTSSDUCESESSSSSLOSSLOSTOCET OCOD P CO CODEPOTCCCESCODTESCOCESSCSOOLOCOOC( Gi 


‘Want y4at/ 
/VaN Keyboard Handling Wit/ 
/tint tsit/ 


AUR 
ATO: 


alata i; 
ii hindi keyboard i/ 
(RSS t/ 
WORE 


find! keyboard‘) 
WORD a} 
Oe strizl: 
Beetie lttr, test: 


if ((str(0] = kreturn) == 0x03) 
return (TRUE); 
grat _mouse(M QFF, Ox0L): 
if ('key_input) 
vswr model(vdi handle, SD REPLACE); 
vst _color{vdi_handle, pen shade); 
vst herght(vdi_ handle, SURE height, 
&gl wehar,&o! hchar,&gl _wbox,&ql hbox); 
gl_hspace = g! hbox - gl _hchar; 
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vst _alignment(vdi handle, 0, 0, £1, &id3 
grat _mbstate (heey xbeg, &key_ybeg, &3:, &1); 
key xcurr = t+t+key_xbeg-Q@; 

bey ycurr = --key_ybegt4: 


elce 
curs _off(); 
str[i] = "\Q": 
rf istriQd == OxlA) 
save pict work(); 
graf mouse (A ON, Ox0L); 
return(key input = FALSE); 
} 
else 
if (str{O) == Oxo2) 
( 
key ycurr += gl hbox + gl hspace; 
key xeurr = key xbe; 


} 
else 
tf (str (0) == 0x08) 
{ 
1f (key_input && (key xcurr '= key xbeg)) 
{ 
tore = Uy 1 4 ol whox; i++) 
{ 
key xcurr--% 
Ednsuct 1.7: 
} 
; 
} 
elce 
NevctelOi = > 7) && (ctri0) <= °2’)} 
{ 


lttr.g x = key_xcurre 
lttr.g_y = key_ycurr - gl_hbez: 
Ittr.g_w = gl whoxs 
Ittr.g h = gl_hbox: 
re copy($lttr, &test): 
rc_intersect(&pict work, &test); 
if ('rc_equal (&ittr, &test)) 
{ 
graf gouse(h ON, OxO0L); 
return (FALSE): 
set clip(TRUE, &pict_work)s 
v_gtextivd: handle, key_xcurr, 
key_ycurr, str}; 
set clip(FALSE, &pict work): 
key xcurr += gl wbox; 
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} 
if (‘key input) 
{ 
rey input = TRUE; 
curs oni}; 
graf mouse(M ON, OxOL); 
returniFALSe): 


eee e ETT e SPODELI DOT SP OED TSOSeLeC POPPI SP CLOPOLeStlecerecresereceeesely 
SUSGRSSURUSUCCC TURRET COTS O ORCC C OOOO SECTS SSSR / 


/44nt t330/ 
{ttt Message Handling tttt/ 
/tttt $htt/ 


/UUUSUSUUU UU 
SUURURARREREE ESRC R OUT T REESE CURR CORES T ae 


EARS GIS t/ 
it hal asg t/ 
a a alltel t/ 


/eMLCCALE/ «BOOLEAN =o ind] _amsgi} 
{ 

KOUQLEAN done: 

GRECT = werk; 


done = FALSEs 
curr_hrdl = wind find (sousex, mousey); 
if { curr_hnd! == pict_hnd! ) 
{ 
re _copyi&sict undo,&curr unde}; 
rc_copy(kpict_work,&curr work); 
curr_afdb.twp = pict _atdb. tap; 
curr_afdb.th = pict atdd. fh; 


4, 
j 


if ( curr_hndl == data hndl } 
{ 
rc_copy(&data_undo,&curr undo}; 
rc_copy(&data_work,&curr_ work): 
curr_etdb.fwp = data mfdb. fap; 
curr_afdb.¢h = data mfdb. th; 


i 
- 
? 
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switch( gl_resgl0) } 

case MN_SELECTED: 
done = hnd! menuigl rasgl3),gl_rasgl4i); 
break; 


case WA REDRAW: 
do redraw(gl rasgi3), (RECT ¥) &gi_ rmsgl4i); 
break: 


case WM TOPPED: 
wind set(gl_rasgl3), WF_TOP, 0, 0, 0, 0}; 
break; 
case WM CLOSED: 
done = TRUE; 
breaks 
case WM FULLED: 
do_full(curr_hndl); 
break; 
case WM ARROWED: 


switch(gl resg(4)) 


case WA UPPAGE: 
curr_undo.g v = max(curr_unde.g y - curr_undo.g fh, 0}; 
break; 
WA DNASE: 
curr_unde.g_y += curr_undo.g hs 
break; 
case WA UPLINE: 
Curr_undc.g y = max(curr_undo.g y - YSCALE(L6), 0); 
break: 
case WA DNLINE: 
curr_unde.g _y += YSCALE (14): 
break; 
case WA LFPAGE: 
Curr_undo.g_x = gax(curr_undo.g x-curr_undo.g w, @); 
break: 
case WA _RTPAGE: 
curr_undo.g_x += curr_undo.g w; 
break: 
case WR LFLINE: 
curr_unds.g x = @ax(curr_undo.g x - 14, 0); 
break: 
case WA ARTLINE: 
Curr_undo.g x += 16; 
break; 


Cas 


mu 


1 
i 


+ ( curr_khndl == pict_hndl ) 
{ 
rc_copy(&curr_undo,&pict_undo); 
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ease 


case 


set pict _work (TRUE); 
rst pict work(); 
} 
i¢ ( curr_hnd] == data hndl ) 
{ 
rc_copy(écurr_undo,&data_undo}s 
set data worki TRUE); 
rst data werk(); 
} 
breaks 


We HSUID: 
curr_unds.g_x = align x(UMUL_DIV(curr_afdb.fwo - curr_undo.g wy, 
gl resgl4), 1000)); 


if ( curr_findl == pict_hndl } 
{ 
pict _undo.g x = curr_undo.g x} 
set pict work (TRUE): 
rst_pict_work(); 
} 
if ( curr_hndl == data_hndl } 
{ 
data_undo.g x = curr_undo.g x; 
set data work (TRUE); 
rst data work (); 
} 


break; 


WE VSLID: 
curr_undo.g_y = UMUL_DiVicurr_afdb.fh - curr_unds.g_h, 
gl _rasgf4),1900): 


if ( curr_findl == pict_hnd} } 
{ 
Pict_undo.g_y = curr_unds.g y; 
set pict_work (TRUE); 
rst pict _work(}: 


f 


rf ( curr_hnd] == data hndl } 
i 
data_undo.g_y = curr_undo.g y} 
set data work (TRUE): 
rst dats work(): 
} 
break; 


a> 





case WH SIZED: 
curr_hndl = wind find (mousex,acusey!; 
if {curr_hndl == pict_hndl) 
{ 
wind calc(i, OxOfef, gl_rasgl4), gl_rasgfSi, gl_rasgléi, 


gi_reso(7],&pict_work.g x, &pict_work.g_y.&pict work.g w, 


boict work.g hh); 
pict work.g x = align _x(pict_work.g x); 
pict _work.g w = align_x(pict_work.g_w); 


wind _calc(0, OxOfet,pict_work.g x,pict_work.g _y,pict_work.g_w, 
pict_work.g h,&gl_rasgl4],&q) resq(S),&o1 recgl6),8q] rasgl7)); 


wird set(pict find], WF_CXYWH, gl _rasgl4J, 
gi rasg(S], gl_racgl6], gi_rasgl?]); 
} 
breaks 
case WM MOVED: 
curr find: = wind find (mousex,aousey); 
iffcurr_hnd] == pict_hndl) 
{ 
g!_rasgl4] = align_¥(g]_reasgl4]}; 
wind set(oict hndl, WF CXYWH, align_x(gl rasgf4]) - {, 
gl _resgi3), gl rescl6), gl rasgl7)); 
j 
break; 
} /¥ switch t/ 
returnfdone): 
y /' tindl msg t/ 


Ce eee i/ 

iy dco redraw t/ 

[\---------------2-------------- t/ 

VOID 

dc _redraw(wh, area) {$ resraw specified area from undo bfr #/ 
WORD =—sowh: 


GRECT = Sareas 
{ 


GRECT box; 
BRECT = dirty_source, dirty_dest; 


grat_souse(M OFF, OxQL): 


wind get(wh, WF_FIRSTXYWH, kbox.g x, &box.g y, &box.g 4, &box.g_ 


while ( box.g_w && box.g hf ) 


f 
2 


1¢ (rc_intersect{area, &box}) 
( 


if ( wh == pict _fndi } 


{ 
rc_copy(&box, &dirty dest); 
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if (rc_intersect(&pict work, &dirty_dest}} 
{ 
dirty source.g x = (dirty cest.g x - pict_work.g_x) 
+ pict_undo.g %; 
dirty source.g y = (dirty_dest.g y - pict_work.g_y) 
+ pict_undc.g y; 
dirty source.g w = dirty_dest.g ws 
dirty scurce.g h = dirty_dest.g fh} 
rast op{3, &dirty_source, &pict_afcb, 
kdirty_dest, &scrn_mfdb); 


if (wh == data _hndl} 


f 
4 


rc_copy(&box, &dirty dest}; 
if (rc_intersecti(&data work, &dirty dest) 
{ 
dirty source.g x = (dirty_dest.g_x - data _work.g_x) 
+ data undo.g x3 
dirty source.g y = (dirty_dest.q_y - data_work.g_y) 
+ data unde. y; 
dirty source.g w = dirty _dest.g ws 
dirty source.g h = dirty_dest.g_h; 
rast _op(3, bdirty_source, &data afd, 
kdirty_dest, &scrn_atdt); 


eat 


1 
i 


winc cet (wh, Wr NEXTXYWH, &box.g x, &box.g_y, &box.g wy &box.g fl; 


5 
i 


graf_mouse(K ON, OxOLi; 


eet eeaoeee = - 2 -- t/ 

it do full t/ 

eeeeees S666 s>> 6-2 S—————— $/ 

VOD 

do full{wh) /% depending on current window state, either make windows/ 
WORD whi; /t full size -or- return to previous shrunken size t/ 


f 
\ 


GBRECT = prev; 
BREG! «© curr; 
GRECT = full; 


graf mouse(M OFF,Ox9L); 


wind getfwh, WF _CXYWH, &curr.g x, Scurr.g y, &curr.g wu, Scurr.g hi: 
wind get(wh, WF PXYWH, &prev.g_x, &prev.g_y, &prev.g_w, &prev.g fi); 


ih 





wind getiwh, WF_FXYWH, &full.gx, &full.g_y, &full.g ow, &full.g hi; 
if ( rc_equal (écurr,&full] }  /# is full now so shrink it 2/ 


{ 

graf chrinkbox(prev.g x, prev.g y, prev.g_w, prev.g h, 
Heater tulleg yy, tUll.g W, TULleg his 

wind set(wh, WF _CXYWH, prev.g x, prev.g_y, prev.g_w, prev.g hi; 


if ( wh == pict hind? } 
{ 
re copy(&pict_prev_undo, &pict_undo); 
set pict work (TRUE); 


rf ( wh == data_hndl) 
( 
re copy(&data prev_undo,&cata_ undo); 
set data work(); 


a 
j 


if ((prev.g x == full.g x) && (prev.g_y == full.g_y)} 


if (wh == pict_hnd: } de _redraw(wh, koict work); 
if (wh == data hnd! } do redraw(wh, scata work}; 
} 
else ‘tts not full sc ake it full f/ 


f 
if (curr hnal == pict _hnd!) re_copyl&pict_undo,&pict_prev_ undo); 
if (curr hdl == date Andl} re_copy(édeta undo, édata prev undo); 


graf growbox{curr.g x, curr.9 y, curr.g w, curr.g h, 
PUGax, Tull ag, tUll.Gewy ful).g his 
wird set(wh, WFOCXYWH, full.g.x, full.g_y, full.g_w, full.g f); 
if ‘curr fndl == pict_hnd!) set_pict_work (TRUE); 
if (curr tind] == data hndl) set data work (TRUE); 


1 
J 


graf_mouse(M CN, OxOL}; 


f 
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AQT 
ATU 


/tuhh tee/ 
{Uae Mouse Handling 6 8 8 9 
meee bhat/ 


PSTTSCOSCCO TOS VVOTECCOTLOTOSCSCLOSOS FOOD ELOCCTSSOCO SSCS SSOP OSC SSSTEDS I 
ACCC 


Daas. t/ 
it ind] mouse 1/ 
ie sage eee a asso a= s t/ 
WORE 

hid] @ouset) 

{ 


BOOLERK © dones 


if (@ out) 
graf wouse(ARRCW, Ox0u); 
else 
grat mouse(monumber, motaddri; 


& out = !o 


gon = 


rc 
return(done 


AQ 
AQUOS / 


/4UUt bait) 
/Uatt Buttor Handling bahh/ 
/Uttt S59 9] 


SORRUURUAEEDURUUER EERE 
AQ 


| |~------2--2------------- === == t/ 
it draw penci! 1/ 
eee eee ee t/ 
BORD 


draw pencilix, y) 
UWORE =x, y3 
i 
UWORD = py [4]; 
WORD done: 
UWORD =—s atiags; 
UWORD loceunt, hicount; 
YWORD  ev_which, bbutton, kstate, kreturn, breturn; 


SIs) 





ft 


set clio (TRUE, &curr_work); 
oxy(0l = xs 
pryl lis y: 


vel color{vdi handie, SURE shade); 
vswr _mede(vdi handle, MD REPLACE?! ; 
vsl_type (vd: handie,FIS SOLID: 


if (SURE shace '= PEN ERASER) 
i 
ve] width (vdi_ handle, SURE_pen-2); 
vel _ends(vdi_ handle, 2, 2); 
hicount = 03 
Jocount = 125; 
eflacs = RU BUTTON | MUM] | MU_TINER; 
graf souse(M OFF, OxOL); 


else 


vet interior(vdi_ handle, 1}; 
vst _color(vdi_ handle, WHITE); 
atiags = MU BUTTON | MU_ML; 


done = FALSE: 
while ('done} 
{ 
ev which = evnt_aulti (eflags, 
Oxi, GxO1, 9x90, 
Poevicleorviliet, 1, 
ae Uy 
ad rmsg, locount, hicount, 
&oxy(2i, &pxyl3i, &bbutton, &kstate, 
tkreturn, &breturn); 


tf (ev_which & MU BUTTON) 


r 
il 


if ('(mflags & MU _TIMER)) 
graf mouse(M OFF, Ox0L); 
if (SURE shade '= FEN ERASER) 
v pline(vdi handle, 2, (WORD %) pxyd; #7 
v_arc(pict hndl,x,y,radius,0,3599) ; 
else 
eraser ((WORD) pxy(2], (WORD) pxy(3i); 
graf mouse (A OM, OxOL); 
done = TRUE: 


else 
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if (ev which & MU_TINER) 

{ 
graf mouse (M ON, Ox0L); 
mfiags = MU_BUTTON « MU Mi; 


else 
{ 
if ('(sflags & MU_TIMER)) 
graf acuse(M OFF, GxOL); 
if (SURE shade '= FEN ERASER) 
{ 
it v pline(vdi handle, z, (WORD 3) pxydy $/ 


v_arc(pict_hndl,x,y,radius,0, $399); 
milags = MU BUTTON | MU MI i MU_TINER; 
} 
else 
{ 
eraser ({WORD) pxyl2], (WORD) pxyf3]); 
graf mouse(H QN,OQx0L}: 
pxy{Q] = 
pxy{i] 


9 

oOo wa 
s¢ 

~~“ 
a oo 


} 
} /Y while %/ 


set clip(FALSE, &curr_work); 
if ( curr_hnd] == pict_thnd] ) save pict work(}; 
if ¢ curr_fndl == data find! ) save _data_work{); 


we 


[J nnnnn enn nn ene ene nnn eee eennnne- 1/ 

it eraser $/ 

D Calatatatatetatanatatatatatatatatatatehetatatedatatatatate 1/ 

VOID 

eraser{x, y) ft erase rectangle ot eraser size at x,y &/ 


WORD oe 
f 
x 


WORD = erase xyl4); 


if (SURE pen == PEN FINE) 


V 


erase xv{Q] = x - 2; 
erase xy{l] = y - 1; 
erase xy[2] = x + 23 
erase xy([3] = y + 1; 


Rocaell 


iO) 





else 
if (SURE pen == PEN MEDIUM) 


{ 
erase xy(0J =x - 4; 
erase xy(lJ] = y - 2; 
erase xy{2] =x + 4; 
erase xy{3] = y + 2; 

else 

{ 
erase xy(0) =x ~ 6; 
erase xy{iJ = y - 3; 
erase xy(2] = % + 63 
erase xyylol = y + 3; 


3 
vr recfiivdi_handie, erase xy); 


nn, at 


/ERERERSLERRER AREA RE REAR A ARERR ERR RARER RRR RARER AER EAR Eee 
PSSSOSDSODIIPOSSSTSODIOTODITSSSSD DOPOD OCTSCC PDI PeseerereeTeserele flr! Fi) 


‘Raat g¢ht/ 
/ttet SURE Event Handler 1ikt/ 
/R4aR Re4i/ 


OOS OS PSSST DOTS SSDS OPSeD Pees Seed eS oer ipeccersereveriep eeeerlefeeely, 
SRERERGRELARAGMA RRA AURORE RRR eee 


[§------------------------------ t/ 
it SURE i/ 
| kn---2 2222 --n no nn anne n2-- === t/ 
SURE () 


i 


BOOLEAN done: 


key input = FALSE: 

done = FALSE: 

FOREVER 

{ 
ev_which = evnt_aultz( MU_MESAG i MU ML./t MU_FEYBDS/ 
0x02, OxOl, OxOl, 
a out, 
(UWORD) data work.g x, (UWORD) data work.g y, 
(UWORD) data_work.g w, (UWORD) date work.o h, 
due 0, 0, 
ad rasg, 0, 0, 
&mousex, keousey, &bstate, bestate, 
tkreturn, &bclicks)s 


wind update (BEG UPDATE), 


OZ 





rf ('(ev_which & MU_KEYSD)) 


{ 
1f (key input! 
{ 
eurseort()'s 
key input = FALSE; 
save data _work(); 
} 
} 


if (ev_which & MU MESAG! 
if (hndl_asg()) 
breaks 


rf (ev_which & MUM!) 
if (hnd] souse()} 
break; 


if (ev_which & AU _KEYBD) 


if (hindi keyboard()) 
break; 


wind update (END UPDATE); 


MOTTSESTISCESTSSOTTSOTOLOSELOSCECOLOPTOSSTEECOOSEEECOSOLESTESCOL OLE SL SG 
PSECSSSECESSTOSSTESEOSSOTESCEOT OSCE C SOLES OT ETOD LOCC ODOSTOCSOLSO SIS 1 E08 7 


/43k4 4933/ 
eee Tera@ination sya3/ 
‘UM SE33/ 


PSSOSESSSCSD DOSE ESOSDTESTESSSOSCEOSOTOLOSCCCO TSOP SCOTS DIL OTOSECOTISS EET 
MOSOSEFIRELESEOLOSILOTOCOTOCOSSLOLOTODIPPOLOSLOS DP OSSOSSTOSSILOLOLOLD LE 


BS t/ 
/$ SURE tere 1/ 
{ f ---- - nnn nn nnn nnn nnn enone i/ 


SURE _term!{term type) 
RORD tere type; 
{ 
cwitch (term type) /¢ NOTE: all cases fall through %/ 
{ 
case (0 /% normal termination §/): 
de closetpict_hndl, gl_wfull/2, gl_hfull/2); 
wind delete(pict hndl); 


do clase(data hind!, gl_wtull/2, gl hfull/2); 


Os 





wind delete(data hndl); 


case (3): 
eenu bar (OxOL, FALSE); 
das_free(pict_atdb.ap); 
case (2): 
v_clsvwk( vdi_ handle ); 
case (i): 
wind update(END UPDATC); 
app! exit); 
base (4): 
break; 


— 


AU / 
ATT 


eee | tit/ 
‘tate Initialization Gttt/ 
/atat se0s/ 


AIOE 
ADO 


Pe aa adel aiadaaa t/ 
it pict init t/ 
OSS t/ 
VOTD 

pict init() 

{ 


LONS tree: 
WORE = tr_obj, obj; 


rsrc_gaddr(K TREE, SUREINFD, &tree); 

trans gimage(tree, SUREIMG!; 

rsrc_gacdriR TREE, SUREPEND, &tree); 

for (tr_oby = SUREFFIN; tr_ob3 <= SUREEBRD; tr_obj++) 
trans gigage(tree, tr_ob3); 
LWSET(QER TYPE(tr_obj), 6 _USERDEF); 
nob) = tr_obj - SUREPFIN: 
brushub(nobj3.ub code = drawaddr; 
brusnubtnobij.ub para = LLGET(OR SPEC(tr ob3)}; 
LESET(QB SPES(tr obj}, ADDR(&brushub(nobj])); 
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ik SURE_init ¥/ 
[|------------------------------ i! 
#ORD 


SURE init 0 


f 
a 


WORD = work int!) 

WORD i,pict _w,dete w,data x; 
GRECT box; 

LONS tree; 


gl apid = appl imitt); /t initialize libraries t/ 
if (gl apid == -1) 
return (4): 
wind update (BES UPDATE); 
graf mouse (HOUR GLASS, Ox0L); 
if {'rsrc_load( ADOR(*SURE.RSC*) 3) 
{ 
graf souse(ARROW, OxGL); 
form alertil, 
ADDR(*{33Fatal Error 'iSURE.RSCi File Not round]{ Abert 3°)); 
return(1); 


f 


{t open virtual workstation i; 
for {120° 14103 1¢+) werk infil=!; 
work infidj=zs 


gee handle = graf handle(&gl wehar,&g! hchar,4gl whox,bg! fbox); 
VGl_handie = gem handle; 

v_opnvwk(work in,&vdi_fandle,work out); 

if (vdi_fiandle == 0! return (t}; 


FEEN in pixels 2/ 


scrn_width = work out{0] + ft; /% WIDTH QF SC 
SCREEN in pixels  &/ 


scrm_ height = work_out{ti + 1; /8 HELGHT OF 
scrn_xsize = work sut(3); 
scrm_ysize = work outl4]: 


char_tine = wore out[44]; 
char medium = work out(48]; 
char_broad = char wediua % 2; 


vq _extnd(vdi handle, 1, work out); 
scrn_ planes = work outl4]; 


ccrn_area.g x = 0; 
scrn_area.g y = 9; 
Scrn_area.g_w = scrn_ width; 
scrn_area.g_h = scrn_ height; 
scrn_afdb.mp = OxOL; 
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/t menu bar operations t/ 


Bret Unhel) /t transforms & user defined objects %/ 
ad rasg = ADDR({BYTE 0) &gl _rasgl0)); 

rsrc gaddr(R_ TREE, SUREMENU, &g] genuls /t init menu t/ 

menu _bar(g! menu, TRUE); /t show menu %/ 


wind get (DESK, WF_WXYWH,&cl xfull,&gi_yfull 4g) wfull,&g) hfull}s 
“/4 werkarea of DESK window t/ 


/t define buffer area for picture window %/ 
pict _mfdt.fep = 1t{ scrn widthi: 
pict_mfdo.fww = pict_afdb.fap7 74; 
pict mfdb.fh = 18( scrn_height); 
pict _mfdb.np = scrn planes: 
Gict mtdb.ff = 9: 


pict _rect.¢ 
pict _rect 
pict rect 
Peer bet. 0. 


0 
sii ct mfab.fep; 


8 
= 0; 
fil 
pict médb.fh; 


x 
y 
w= 
h 


size pict _afgb = (LONG) ((pict_afdb.twocoSitid @ (LONG) pict afdb. fh % 
(LONG pict _efdb.no; 
Jec_pict_ardd = 
pict_afdb.a5 = dos alloc(size pict afdb); 
rf (pict afdb.an == 0)  return(Z); 


/t define buffer area fer data window t/ 
data afds.fap = scrn width: 
data midb.¢ww = data atdb.fep>>4: 
datea_atat, th it( scrn_herght); 
data mtdb.np = sern_planes; 
Gata midb.ff = 0: 


data _rect.g x = 0; 
data rect.g y = 4; 
data rect.g w= data mftdb. fap; 
data rect.g f = data efdb. th; 


size _data_mfdb = (LONG) ((data afdb.two7 siti} & (LONGidata mfab.fn 
(LONS) data efdb.np: 
loc_data e@fdb = 
data efdb.ap = dos alloc(size cata mfdb); 


OIE 





if {data_afdb.mo == 0) 
returna(2); 


/¥ set all pixels in pict buffer to zero (white) #/ 
rast opiG,&oict rect dpict afdb,tpict_rect,bpict_afdb)s 


/% set ail pixels in data buffer to zero (white) t/ 
rast ool), $data rect, $data _mfob,&data rect ,ddata_afdb); 


‘Yt create the two windows ’picture’ and ’data’ t/ 


pict hndl=wind create(Oxlfef,ql xfull-l,ql_yfull,gl_wtull,gl héull);: 
data hndl=wind create (OxOfef.gl _xfull-S,gl_yéull,gl_whull,gl ffuli); 


if ( (pict hndi == -{) ti {data find] == -1) } 
{ 
form alert(1, string _ador (SURENWDH) |; 
return (3); 


4 
é 


graf_mouse (HOUR GLASS, Ox0L}; 


wind set(cict_fndl, WF NAME, 
(WORD? LUGWDCADOR (wdw title): (WORD) LHIWD ADDR (wow titie!), 0, OQ); 
wind set{data find], #F_NARE, 
(WORD) LLOWD(ADDR (wdw tdata)), (WORD) LHIWD(ADDR(wdw tdata)}, 0, 0}; 


pict_w = (6%gi whulli/16 « /t inst width ef pict windew t/ 
date_w = (4tgl whull)/10 - 2; /% init width of data window %/ 
data_x = pict_wt+ 2; /¥ init x-coord of data window &/ 


do open (data hndl,gi whull/z,gl hfull/2,data_x,g! yfull, 
data w, gl_htull); 
oo_open(pict_hind) al _wfull/Z,o] hfuli/2,g]_xfull,gl_yfull, 
Bict_w, gl _hfull)s 


wind getipict_find] ,WF_WXYWH, &pict_work.g x, &pict _work.g y, 
bpict_work.g_w,&pict_work.o fils 
/Vounit workarea of pict window 1/ 
wind getidata_hndl WF WXYWH, bdata work.g x,&data work.g_y, 
tdata_work.g w,&adata work.g fi); 
/t init workarea of data window t/ 


pict_undo.g x = G3 /teinst pict_undo area t/ 
pict_undo.g y = Us 

pict_undo.g_w = pict work.g w: 

pict_unco.g fb = pict_work.g hb; 
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cata undo.g x = 0; ‘t init data_undo erea %/ 
data _undo.g_y = 0; 

Gata_undo.c¢_w = data work.g_w; 

data_unco.g h = data_work.g_h; 


rc copy(tpict_undo,ésict_prev_unda); /# init. ‘previous’ undo i/ 
re copyi&data_undo,’data prev_undo}; /¥ areas for full/unfulling #/ 


set _data_work (TRUE) ; /tinit slider bars of data window %/ 
rst data work (); /¥ data window turns white 1/ 
Pit odakath ft init data structures 1/ 
set _sict_work (TRUE); /¥ init slider bars of pict window %/ 
rst pict _worki); /¥ pict window turns white i/ 


gra?_mouse (ARROW, Ox0L) 
wind update (End UPDATE); 


objc xywhigl menu, SUREDESK, boy); 
rspc_gaddr(R TREE, INTRO, ttree); 

hid! dialftree,0,bax.g ¥,box.g y,box.g_w,box.g yi: 
dese! obj (tree, INTROOK!: 


returniG)s: 


ey 


PISTOSLOTICECOCSCECSL ESE L ECTS EES OSCE OTC CSSCECSECOCOLOTCSSSCOCECELOE SS 
PESECCTECECCECCCCESCOTSTECEC CCS ECCCCECE ECCS CECECECECE CSCS SCCEE SSS eS S28 2 


‘tiny 1444/ 
fain Main Frooraa r444/ 
/3aet 145i) 


eee TTS ER TOLER TREC EECCSCECSCECOCSCCCSSSTCSESCCEELESCECSESCE CSE S S29) 
eee e ee CETTE OSS ESOT STIS ESECETSECOSTESESSCTTO ESE OCCOTS EC OTEECE CSS EOS EE 8 


ee t/ 
ii BENAIN 1/ 
fe t/ 
GEMAIN() 


KORD «=o term type; 
it f'iterm_ type = SURE init())) 


SURE}; 
SURE term(term type! 
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SURE OPTIONS LISTING 


This APPENDIX contains all the code required to enter 
and label the Semi-markov models displayed in the Data and 
Picture windows. The code is all original and is self 


documenting. 


HGS, 





PECCOCSTOCSSCSOSSSCSTOSISCCOSEOTEOSOCCSISSSCCLCOSSCLOSSSUSESSCSS OSES SLE 


/t 
fi 
‘i 
it 
i% 
/t 
it 
iy 
i% 
it 
‘Nt 
it 
fi 
/t 


This is the SURc-opticns portion cf 


routines necessary to implement the 


contained in the routine: 
Enter Constants 
enter States 
Enter transitions 
Relipiot 
Har dcasy 


Jonn c. Bordeaux 
Naval Postgraduate School 
Master's Thesis 


- Set-up to be 
- Set-up te be 


the SURE program, All 
following functions ere 


done at later cate 
dane at later date 


ij 
1/ 
i/ 
i/ 
i/ 
i/ 
t/ 
/ 
i/ 
1/ 
i/ 
1/ 
i/ 
1/ 


PeOCO TOSS CSC CCTERECCESSTCCEESCUCCO LCCC SECECECOSTICLOSOCUCOSECECTCCL SEY 


portable coding conv 
machine depndnt conv 
object definitions 

tree adaress macros 
ges binding structs 
SURE 


apl resource 


lattice € 


jattice € 


‘a gaxigum number at states 
‘i maximus nuaber of transition 
/Y Whites algsbrasc formuls,E(t! 
‘t indicates the start state 
/¥ deselect geometric 


0 SSS SSS S565 Sa SSS SSS Ss i/ 

/t includes i/ 

| Pian nn nnn wn mn nn = =~ I; 
#inciude “portab.h” ii 
#include “gwachine.h" it 
#inciuse “obsets.h” /t 
#include “treeaddr.h° /t 
finciude “gembinc.h" ‘i 
Finciude “sure.h" /t 
$ificiuge ‘math. h® /% 
#include "limits .n" it 
#inciuce “optstrct.h’ 

fdefine TeE_TATLER{x) (x+24) 

| §------ oo nero nn enn nn t/ 

it preprocessor utilities u 

[Yemen nn nn rene nn en en nee nnn eee t/ 
$define MALLOC (y) (iy @) galloc(sizeotixi}) 
#cefine  CALLOCin, ud (tx §) callocin, sizeotix})) 
[¥------------------------------ i/ 

it UFT/SURE detines ij 

[ ¥------------------------------ 1; 
$define END UPDATE 4 

#define BEG UPDATE 1 

#cefine NAXSTATE 190 

#define MAXKTRANS Zui) 

$define ETCALC y 

¥define STAR i 

#define GEOMETRIC FALSE 

tdefine prn: EFSHSSIG.FNT 
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i/ 
1/ 
1; 
t/ 
t/ 
{/ 
i/ 
i/ 





it External Functions t 
(cE es ee t/ 
EXTERK LONS dos _alicci); 


EXTERN  -UWORD © DOS_ERS; 


egies s ag i; 

it Giebal Date Structures &/ 

LS haa aaa i) 

extern struct state loc stete array[MAXSTATE); 

ae. -- eee] ------------ t/ 

it external variables t/ 

ee ee eee t/ 

extern RORD = g]_wehar; /t character width t/ 
extern wOrD = gl char; /% character height t/ 
extern KORD = sgh _whox; /t box (cell) widtn i/ 
extern WORD = g] _Aboxs /% box tcell) height t/ 
extern WORD = gh _rasgl8i; /t message butter t/ 
extern RCRD «= gg] _fispace; /t dt. of space between lines &/ 
extern WORD © SURE_pen; 

extern WURD = SURE shade; 

extern WORD = FEN_ERASES 

extern WORD TIME; ft mission tise t/ 
extern WORD = POINTS: /t nusber of pts plotted/caic &/ 
extern LONS = PRUNES /§ deactivate the pruning i/ 
extern WORD  WARNDIGs ft set UB accuracy t/ 
extern BORD =o TRUNC: /¥ set locp traversals at 3 t/ 
extern WORD = LBFACT; /t sets the Fi ana Fj = 20 t/ 
extern WORD =o LIST; /t sets the output level t/ 
extern RORD =—sstitle: 

extern HURD =—s-_-ydata; /t Current data line 1/ 
extern WORD =sradius; /i Cureent radius of state t/ 
extern WORD =o gem_handle; i} GER vdi handle i/ 
extern WORD = vd _fandle; /% SURE vdi fandle t/ 
extern WORD =e work_out{27); /t open virt workstation veluest/ 
extern WORD = ev_which: /t event muiti return state(s) &/ 
extern WORD = vdi_fiandle; 

extern WORD =o curr_tindl; 

extern WORD =o pict _findls /t SURE windaw fancle t/ 
extern WORD = data_hndi; /t SURE data window handle t/ 
extern WORD «© pen_shade ; /t saved pen shate t/ 
extern WORD = SURE height ; /t Suke current char height &/ 
extern WORD char fines ft character herght for tine t/ 
extern WORD Char medium; /t character height for medium %/ 
extern WORD = char_broad; ft character hergtit for orcad &/ 
extern WORD =o monuaber ; /t mouse for® number t/ 
externi LONS mofaddr ; /t mouse fora address t/ 


hdd 





extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 


extern 
extern 
extern 
extern 


extern 
exters 
extern 


extern 
extern 
extern 
extern 
extern 
extern 


extern 
ytern 
ev tern 
extern 
extern 
extern 
extern 
extern 
extern 


extern 
extern 
extern 
extern 
extern 
extern 
extern 


UWORD 
UWGRD 
URORE 
UACkE 


LONS 
LUNG 


LONS 


GRECT 
GRECT 
BRECT 


dcuble 
double 
doutle 
double 
couble 
double 
double 
double 
double 


ROOLEAN 
BOULEAN 
BUSLEAN 
BOOLEAN 
BOULEAN 
BOOLEAN 
BOOLEAN 


file handie; 


key xbeg; 
key_ybeg; 
key xcurrs 
key ycurrs 
runno; 
pathcount: 
Cattruncs 
cntprune; 
bigst; 

1} 


num states; 


a out ; 


ROLES:, HCUSEY: 
bstate, Dclickss 
kstate, ereturns 


ad rase: 
Gi_ menu; 
drawaddr; 


Curr WOrks 
pict_wark; 
BICt mest: 
data_work; 
Curr unde; 
pict_undc; 


SPeCliGns 
spechigh; 
specvals 
ubfails 
Ibfaii3 
eof t; 


Beet t Obl; 


pialphas 


lonbt, iowba: 


Key Input; 


Brun, 


noniinears 


et bed: 


rec slow; 
std bigs 
rate big; 


it 
ft 
it 
it 
it 
it 
/% 
‘at 
it 
‘t 


/ 


a 


/ 
it 


ft 


oe 


ft 
it 


it 
it 
ii 
iy 


it 
it 
it 
it 
it 
it 
it 
/% 
/t 


it 
it 
it 
it 
it 
it 


file handle -? pict Id/sy 
x posit for line beginning 
y posit for iine beginning 
current » position 

current y position 

run number 

number cf paths 

nuaber of loops truncated 
number ot paths pruned 


t/ 
t/ 
t/ 
¥/ 
t/ 
1; 
t/ 
t/ 
t/ 


laraest state entered so tart! 


nuaber cof states entered 


mouse in/out of window flag 
MOUSE x,y positicn 

button state, & # of clicks 
key State and keyfsard char 


LONG pointer to aessage bfr 
menu tree address 


work area of current window 
work area of picture window 
work area of picture window 
work area of data window 


variabie range value 
Varladle range vaiue 
special variable value 
prob of system failure 
lower cound of failure 
F(T) computation result 
E({T-%) computation result 
product of the alphas 
intermediate results 


key inputting state 
runtime errors fiag 
nonlinear tiag 

E(T} cop. 16 imaccurate 


recovery toc Siow 
Rec Std. too big 
Exp. rate tao fast 


ieee 


i/ 


i/ 
t/ 
t/ 
17 


é 


1/ 


t/ 
t/ 
t/ 


{ 


{/ 
1/ 
t/ 
t/ 
/ 
t/ 


t/ 
i/ 


t/ 
t/ 
t/ 
1/ 
t/ 
t/ 
t/ 





ATOCUVUCSTLCCOSCOTOCCOCSCOCOSCOTECOCOOSOCCCCOOSCOCOLOCOCOSC OOOO OOCOLS 
a DATA INPUT SECTION i; 
PUCTCCTCCORSTCECESCOCCOSOCOSCLOECTICCECTCOOCCOSTOSCOCOCCCTOSSECE LILES LLY, 


it oe ewww ow eo me wm ew wm ew er ee reer eer {/ 
ia init_data q/ 
eee... iy 


Stipe = 1! 3 X= AASIAIEY i++) 


state array{ij.y coord = Q; 
State _arrayiii.y coord = 0; 
} 
d/E anit_cata %/ 


eer case saan 22 TTT i/ 

i} do constants i/ 

eee So ~~ Sao i/ 

GlD 

dc_constants!} fa This routine cefines the &/ 
{ /t values of the constants t/ 


GRECT = boxs 

LONG ~=—s tree; 

LONG cons addr,valu addr; 
BYTE = Gnawelili,dvalulZ3]; 
WD = exat_obj; 


save date work! i; 

set clipiFALSE &pict_worki3 
set data work (TRUE); 

cet cliptTRuc,&cata work); 


FOREVER 

{ 

Gbic_xywh{gi_ menu, SUREOPTS, &box): 

rsrc_gaddr (R_TREE,ENTERCON, &tree! ; 

exit_obj) = hndl dial(tree,9,box.g x, box.g_y, box.g w, box.g hd; 
Gesel obj (tree, CUNSTYES); 


if ( exit_sby == CONSTND) 
{ 
dese! obj (tree, CONSTNG); 
rst_data_work(); 
set pict work {TRUE}; 
Set ciip(TRUE,&pict work): 
return} 


+ 
PY 


Labs 





objc xywh(gl menu, SUREGFIS, £box) 3 
rérc_gaddr{h TREE, ADDCONS? &tree); 


cons_addr = LLSETIGR SPEC (CONSNANE) }; 
valu_ader = LLOET(QB_SFEC(CONSVALL) } 


Evi cons_addr, ADDA(dname) J; 
ET: valu_addr, ADDRicvalu: ); 


Ej< TE TATLEN(cons addr), 7); 
ET( TE_TXTLEN{valu_addr), 21); 


dnanelO} = ‘\d's 

dvalucu] = ’\O": 

i¢itna! dial itree, CONSNAME,tox.o x, Dox.g_y, box.g a, box.g n) 
== ADDCONIK ) 


rst_data_work.(); 


vst height(data hndi ,char_fine, &g]_wehar, $9] _fichar, 
&gl wehar , ql_hchar); 
v gtextidata fino], data work.g x+i,data work.g ytydatate, dname)s 
v_gtext(data find’, data_work.g x#90,data work.g ytydatale, "="); 
vy _gtertidata findl, data work.¢ x+90,data work.g yt+ydatabe,dvaluls 
vst fheightidata tind! ,char_medius, 4c] _wehar. &g]_hchar, 
¥gl_wehar , gl Achar); 


Save Gata work(); 

rst data work); 

desel obj itree, ADDCONGE ?; 
udatat+: 


1 
| 


MUSSSSUSOTOSSOFISSCOSOCCCSOSOSSCCSC OTTO SOS STTOTSSCEOSSSOSSSCLOSSCSSOS Fi 


ii t/ 
it Thi¢ is the Enter states portion of the Sure progras. t/ 
ii i/ 


POSSSSITITOSIIIFOCOTICSOCCCCOSTOSSCCSCOSSOSCSOCOSTOSSSTSSSCCCOSOSOSOT ST 


{Yen n nnn conn n en nn nn en en eee noe / 

iy do states / 

gga a a ~~ === <= === = t/ 

VOID 

do states(} /¥ Tnis is the Work Horse of 47 

{ ‘t enter states. i/ 
Ohec; Sta area ,box; 
LONS tree; 
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it 


i/ 


graf eouse(monuaber,motadar |; 


sta area.g x = pict_work.g x + 35; /# This box cefines an area on &/ 
ste _ared.g y = pict_work.g y + 19; /% the screen to insure states %/ 
sta area.g 4 = pict_work.g w- 30; /t do not overlap the bounday %/ 
sta_area.g h = pict work.c h - 30; 


wiile {mus states <= MAXSTATE) 


{ 
ev_which = evnt_multiiNl BUTTON 7 MUM , 
OxOi, GxO1, Oxdl, 
t 
{UWORD) pict_work.g x, (UWORD) pict_work.g_y, 
(UWORD) pict_work.g w, (URGED) pict_work.g h, 
CemGra Oy 0, 
ac rasg,9,4, 
hecusex, bmousey, tustate, &kstate, 
khreturn, &bclicks?; 
if ( ev which & SU BUTTON) 
{ 
if (lfinsice(sousex mousey, fete area!) bb 
(‘too close(gcusex,sousey, fun statesi:) 
{ 
Graw state (mousex, mousey, num states? ; 
evnt_tiser (20,4) 
state array(nus statesi.x coord = mousex; 
state array(nua states].y coord = mousey; 
state array(num_statesJ.x coord = pict_undo.g x + 
{ mousex - pict_wark.g x); 
state _array(num states).y_ccord = pict_undo.g y + 
( mousey - pict_work.g y); 
num statest+ 3 
} 
} 


if { ev_which & Nu_Bt) 
{ 
save pict work (); 
returns 


4 


‘ 
é 


tenet 


baled 





it draw state t/ 

FO a t/ 

RORD 

draw State(x, y ,fum_s) /t This routine draws and 

WORD nuk $3 ‘Y labels the state at the 

UWORD x, y3 /t x, y, lecation. The state 

{ /$ 1s labelec with the value 
Ue0RD x next,y_next; /¥ contained in nus, 


UWURD xt, yts 
BYTE = rue_str (20); 


gr2a¢ mouseiM_ OFF, OxeL); /t Turn mouse off 
itca(nua@_5,nus_str); /t Convert nu s to a string 


ft radius = 16; of/ 


if (nug_s <= 9) /t The next set of statements 
( /t determine where to label 
aes XS /t the state for sediue. 
ie al 
} 

if (inug_s 7= 10) && (nup_s <= 993) 
{ 
xt = 
yt 


rt tat 
=e 


—= 


iT} ' 

— —— 

+ 1 
hI CO 


if ( nues 3= 105) 


“If getty 
ce ce 
1 
~— 
a 
Lea} 
we ft 


Pe) 


ysl midth(cict Andi, i}; 

vsil_engs{pict_hndi,2,2)3 

VeGneNDICt Olay, y,ra0lus,0,o095) it Draw state here 
it draw pencil(x,y); $/ 

vei math pict hndl,1)3 

¥ gquextisict tind], xt, yt, nua stri: /$ Label state here 


grat @ouse(M_ON, GxGui; /t Turn @ouse on 
j 
ees o - - ~~~ =------ t/ 
it quess t/ 
ee i/ 


guess{x curr,y curr,x_mext,y_next,ptal /& guess the next state locat. 
UWGRD ox curr,y_curr,x_next,y_nexts 

BRECT %ptg: 

{ 


J Duis 


i/ 
1/ 
t/ 
t/ 
{/ 


t/ 
$/ 


t/ 
t/ 


t/ 


i/ 


t/ 


i/ 





if({{ x curr * 60) <= (pte-79 x + ptg->g_n)) 
{ 


* 


x fext = x_curr + 60; 
y_nmext = y_curr; 
y 
d 
else 
x next = x currs 
y next = y_curr + 40; 


yit guess ¥/ 


ee a v/ 
{t too close 4/ 
| {------------------------------ { 
too close‘x ,y ,nua ) 
UKORD x,y} /¥ This routine determines if %/ 
wORD nue: {i the states are too close, %/ 
{ /M it takes the absclute value %/ 
WORD ods /t of the difference between %/ 
UWORD x _teap, y_tenmp; /t the present moute position %/ 
/¥ and state positions that 1/ 
/¥ area stored in an array t/ 
if ( num == | /t called state array. i 


\ 
} 
return tFAlse}: 


nue = nua - f3 
foteteve= et 4> Uke i++ 


ee 


£ 
x teen = abs( x - state _arrayfid.x_ coord): 
y_tems = abs( y - state arraylil.y_coord); 


ivi( x temp <= 75) && (y_temp <= 40)) 
return {TRUE}: 


i) 


return (FALSE) ; 


1 it toe _claset/ 


lol 





PUCERETECTRCCCCCCCTCC SCLC CTCC CCT TC OTTO CCT CC eE TF eet eee er eeeereseeteeret v1 
it 1) 
‘t= =This 1s the transitions section of Sure. The routines used to i/ 
/t draw and input the data for the transitions between states is i/ 
/& included in this section, i/ 
it i/ 
BESPOCECTCSTECECECTCCOCTCESTOLOCOCOCCCTCTCTOCT TESCO COCSOCCCOS TSE S COTES i 


aaa. ----~------~~ t/ 
it get slow’) i/ 
ieeamies 22> sos ~~ ~~~ t/ 
BYTE 


t_Slow'froms, tos) ft dialogue box input rate t/ 
WORD «©6troas, toss 


un 


LONS =—s tree; 

LONG = ted_addr; 

SRECT box; 

BYTE tiiame; 

double atofi:: 

VALREC mean,stdev. tract: 
cave deta wort ()s 


objc_xywh(gl menu, SUREGPTS, tox); 
rsrc_gaddr {R_ TREE, SURESLOW, Stree); 
tec_addr = LLGET(OB SPEC{SLOWLAMD) |; 
LLSET( tec_addr, ADDRiname) 35 
LWSET! TE TXILEN(ted addr), 9); 


if (Andi qialitree,SLOWUMME,box.g x,box.g y,box.g_#,bex.g_h! 
== Si Cwin | 

{ 
desel obi (tree, SLOWGE) ; 
mean.base = atofinage); 
mean.coet = ator (nage); 
stdev, base = -1.0; 
sidev.coef = -1.03 
fract, base = 1.93 
fract.coge? = 1.03 
enter (froms,tos, bmean, bstdev, &tract); 
return (name) s 

} 


} AB get_clor() £/ 


Waite, 





/% get_fast () / 
ee t/ 
BYTE 


get_fast(fross,tos,mean, stdev, frac} 
WORT = frroas, tas; 
BYTE «=—s_s ean, Sstdev,Itrac; 


LONb tree; 

LONS mean_ader; 

LONS stdev_ador; 

LONE = frac_addr: 

GRECT = box; 

double atof(); 

VALREC teean,tstdev,ttract; 
save dete work(); 

box); 
tr 


obic_ xywh(ql_ menu, SUR : 
reer; 


EGPT 
rsrc_gaddr (FR TREE, SUREFAS 


5, 
T,&t 


meanid}) = *\a's 


mean addr = LLGET(G8 SPEC(SURERERND }; 


LLSET( mean addr, ADDR mean) }s 
LWSET( TE_TXTLEN(mean_ addr}, 9); 


ctdev(0}] = ‘\ary 

stceyv acdr = LLGET(GE SPEC(SURESTD: 
LLSET( stdev_addr, ADDR (stdev! }; 
LWSET( TE TXTLEN(stdev_adar:, 9); 


fracaG) = “\0"s 

frac_addr = LLGET(GB SPEC ISUREFRAC) 
LLSET( trac_addr, ADDRifrac) }¢ 
LWSET{ TE TKTLEN (frac addr}, 5); 


rf (had! dial itree,SUREMEAN, box.g +, 


== FASTOE) 
if 
r 
desel obj itree,rASTOK): 
tmean. bass = atoflmean); 
thean. coef = atot(meani: 


/¥ dialogue box input rate t/ 


f 
ay 


Ie 


hy 


box.g y,box.¢_w,box.g hn) 


tstdev.base = atotistdev); 


tstdev.coef = atof(stdey): 


tfract.base = atof (frac); 
tfract.base = atottrac)s 


enter (frome, tos, ktmean,&t 


3} 
i 


} ft get fast) t/ 


stdev,&tfract); 
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/$ de fast transition 1/ 
eee i/ 
VOIL jt This routine detergines the 4% 
do fast transition() /t froas and the tos for inputt/ 
{ ft for input of transition datas/ 


WURDE exit _obj,froms ,tas; 

GRECT = box; 

LONo oxyi4i, tree; it define pxy array at a long &/ 
double dblpxyi4i; /t redefine pxy array as doublel/ 
BYTE meanlidl stdevlisi,fracl?): 


set pict wore (TRUE); 
cet clipiTRUE, &pict_work); 
gref mouseimonuaber,motaddr!; 


ev which = evnt multi iMlU BUTTON ; MULM: , 
0x01, O201, Oxdl, 
1, 
(UWURD) pict_work.g 2, CUWURD? fict_work.g_y, 
\UWORG) pict work.a_w, (URORD: pict_work.g A, 
ey Ue Ua Us 
ed rasg,%,0, 
‘mcusex, mousey, &bstate, &kstate, 
kereturn, &bclicks); 


rf ( evinhich & MU_NL} 
i fPoexit 1¢ souse cut of window %/ 

Save pict worki}: 

return, 


5 
J 


if { evwhich & MU BUTTON) 
{ 
1¢ (which state igousex, mousey, &froms! ) 


{ 


payl0) = state _array[troms).x coorc ; 
pxy(li = state arrayltroasi.y coord ; 


dtlpxyi0] = pxylQ); /t store x(froms)}-locationt/ 
cblpxyfii = pxyflis /¥ store y(froms)-iocationd/ 
evnt timer (S05,0)s 

} 


/t After trom state is selected loop 1; 
do /¥ until a good to state is selected Vi 
{ 
ev which = evnt_sult:(MU BUTTON ¢ MUM , 
Oxo 1 UxClS 0701. 
l, 
(UWORD) pict_work.g x, (UWORD) pict work.g y, 
(UWORD) pict_work.g_w, (UWORD) pict_work.g_h, 
Ore 00 0 
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returns 


ad_rasg,0,%, 
bmousex, &mousey, &bstate, kkstate, 
bireturn, &Abclicks}; 


if { ev_which & MU ML) 
i ‘teexit if mouse out ef window &/ 
Save pict _work(); 
returns 
} 
}while ('t( ev_which & MU_BUTTON) && 
( which stetefmousex, mousey, &tcs)i)); 


pxyf{Zi = state arrayltos).» coora 3 
oxy(a) = stete arrayltasi.y_csord ; 
dblpxyfZ} = pxyf2); 
cbipxyl[3] = pryl3); 


draw tran(&dtloxy,froas, tas}; 
Save pict work (); 
Save data_work (34 


/¥ Prepare ta get the transiticn data i; 
‘4 drae diaiog box for fast transition %/ 


get fast (fromc, tos, bmean, &stdev,&traci} 


/t label the data window t/ 
lab tast_window(ftroms,tos,tmean, &stdev,bfrac); 
‘¥ label the fast transition % 
label fast (&pxy,froms,tos, &mean, &stdev,btraci; 
rst_pict_work(); 
rst_data werk (); 
set pict _work{TRue): 
set clip(TRUE, &pict_work)s 
return: 


mn 


i /t do fast transition %/ 


eee t/ 
/% Go Slow transition i/ 
{¥ ---- nn ann nnn ne n= = - t/ 
VOID /t This routine determines the %/ 
do slow transition() ‘¥ froms and the tes for t/ 
{ /t input of transition data t/ 
WORD 1 ,froms ,tos: 
GRECT box: 
LONG pxyi4i,tree; /4 define pxy array as along %/ 


er 





double dblpxy{4]; {t redefine pxy array as doubled/ 
BYTE chamelici,%get_slow(); 
BYTE pstr{isi; 


graf eouse(monumber,mofaddr i; 


set clipiTRUE, &pict_work!; 


ev which = evmt_multiiMU BUTTON 1 MuLMi , 
Org, Ox0l sux ut, 
1, 
(UWGRD) pict work.g_x, (URORD) pict_work.a y, 
(UWCRD) pict_work.g_w, (URORD) pict_work.g h, 
CO a doy Oaaue 
ad_rasg,t,4, 
Gmoucex, &mousey, bbstate, &kstate, 
vkreturn, &bclicks; 


1¢ ( ev which & AU RL) 
i ‘Sexit af gcuse cut of dindow t/ 
Save pict work{); 
return; 
} 
if ( ev_which & MU BUTTON) 
1¢ (which state {mousex,aousey,&frosis! } 
{ 
pxy(O] = state arraylfroms).x coord ; 
pxy{i] = state _array{troms!.y_coore ; 
dbloxyf{@] = psyl0l; /} store x(froms:-locationt: 
dbipxyfl] = pxyfl); /t store ylfroms)-locations/ 
evnit timer (00,0); 
i 
/t Atter from state is selected loop i/ 
do /t until a good to state is selected t/ 
{ 
ev which = evnt_gulti (MU BUTTON : MUM! , 
OxGl, OxGL, Oxdl, 
1, 
(UWORD) pict _work.g x, (UWORD) pict _work.g y, 
(UWORD) pict_work.g w, (UWORD) pict work.g_f, 
Oem 0, 0, 
ad rasg,(,9, 
kmousex, &mousey, &bstate, &ketate, 
bkreturn, &bclicks); 


if { ev_which & MUNI) 


Iya 





( /t exit if aouse out of window %/ 
Save pict _work(); 
return; 
} 
y while ‘'({ ev_which & MU BUTTON) && 
{ which state (mouse, mousey, ktos)})); 


pyyl2: = state_array{tosJ.x_ coord 
pxyf3i = state array{tos].y_coord 
diioxy€2) = pxyl2); 
dblpxyf£3] = pryf3); 


ws =e 


} 
fe 
draw tran(&dblpxy,¢roms,tos); /% draw arrow t/ 


/$ Frepare to get the transition data $/ 
/t draw dialeg box fer siow transition  %/ 
Save pict work); 
save data work(}; 
strcpy(cnase , get_slow(froms,tos)); 
rst data work!); 
est ict _workli3 


Save pict work (}; 
lab slow wincow(froas,tos,&cnamel: 


save data work (); 


label slow{kpxy,froms, tos, &cname) 5 


/t Label slow transition t/ 
} 

set cliptFraLS& épict_ work): 

return; 
) /% du Siow transition &/ 
eee = - -- ------=~== t/ 
iy which state t/ 
ee - = === t/ 
which _state(x ,y ,curr_st) 
Jako =X, ¥} /t This routine detergines the W/ 
WORE tcurr st; /¥ state which is unger the t/ 
{ /% mouse cursor i) 


WORD =i nue 
UWORD x temp, y temp: 


nu@ = num states - |: 

TO el i= Hunt i++) 
{ 

x temp = ab 


( x - state _arrayli).x_ coord}; 
( y - state arraylii.y_coord}; 


WAS 





ifi( x_temp <= 18) b& (y_teap <= 19)) 
{ 
Fcurr st = 3; 
return (TRUE); ii 
j {a 
} 
return (FALSE: : 
} /t which state %/ 


eee a Oe a y7 
it draw trantoxy) i/ 
ae eo ee = = if 
VOID 
draw tran(colosy,froms,tos} ft This routine draws the line t/ 
double %dbipyv; /t between the states. t/ 
WORD frons, tos: 
Goubresyecitt, ¥ citt, /¥ Distance between froms ana ¥/ 
double angie ; /t tos, / 
LONS =o Ingoxyt4]; 
WORD =o pxyf4d: 
double sint!,cos(}),atan2(}s 
v digf = dblpyv(3) - dblpxyfli: /¥ Compute distance, yl - y2 F/ 
x diff = dkipyy(2) - dbloxyti]; /¢ Compute distance, xl - x2 & 
ee diet t= 0 } 
angle = atancly_diff , x_diff)s/¥ Compute angle i/ 
else 
angie = L,076796827: 
/¥ find the edge of the circle ¥/ 
inopsyl0] = cosiangle} @ 16.0 + dblpxyid); 
ingpyyil] = sin(angle} ¥ 19,6 + dblezyf1]; 
ingpxyl2) = dblpyy{Z] - costangle} % 16.0; 
Ingpsyf3] = dblpxyf3i - sinfangle) % 10.6: 
oxyi0l] = InopzylO]; /t convert to integer t/ 
pyvil] = Ingpxyft); 
pryi2] = Ingpyy{Z); 
pyyl3) = lngoxytol: 
/$ vsewr_modetpict find], MD REPLACES ; 
ti vst width (pict _hndl ids 
vS1_colorivdi_handie, SURE_shade/; 
vsl_endsipict tnd)],2,1)3 
v_pline(nict findi, 2, (WORDS) pxy); /8 draw arrow between states i/ 


vel wicthipict tndl,1}s 
vsl ends(pict hind) ,2,2)3 
} /t draw tran §/ 


Te! 


TRUE it state 16 parts? 
t; 


return 
state array 
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it aie hearer ree eee CRE STC Se ee gs ee 7 


ft label fast transition %/ 
eee eee :/ 
VOTD 


babel fastifxy,froms,tos,mean,stdev, frac} 

/$ This routine labels a fact 
LOK6 toxys /t transition between states. 
WORD froms, tos: 
RYTE imean, tstoey, trac; 


eure yeurss, 8 0147; /$ Distance between froms and 
WORD «xa ya,xs,ysyxf,yf3 /t tos, 


set pict _work (TRUE: : 
Set_clip(FALSE,ddata work); 


vents = tyyiay — pryli ts /t Comsute distance, yl-+ y2 
Notiete= oxyl2) — oxy(0): {4 Compute distance, xi-> x2 


ym = 625 F x_dité + oxv£(O); 
va = .3o F y_diff + pxylhd: 


eee Raitt ~ oxylO]s 
ys = 4 y diff + oxy{l); 


reba AX Cleat + pxylO): 


yf = 65 § y_diff + pxylt]; 


vst herght(data_hnd) ,char_ fine, &g} wehar, &gl hchar, 
kg] wenar , gi_hchar)s 

v_gtext(data nndl,xmts,ya, means) 

v_atext(data hndl,xs+5,ys,stoev); 

vV_gtext(data find! ,xtti,yf, traci: 

vst heightidata find! ,char_aediua , &3]1 wcher, &@} hchar, 
&gl_wehar , gl hchar); 

Save pict work); 

mst _pict_work(); 

set pict work (TRUE): 


set clipiTRuE, &pict work); 


i /U label fast &/ 


ie 


1/ 
1/ 


1/ 
t/ 





ft label slow transition &/ 
[\------------------------------ b/ 
VOiD 
label slow(pxy,froms, tos, cnase} /¥ This routine labels a clon &/ 
LONE tory; /t transition between states, %/ 
WORD froms, tos; 
BYTE lcnane; 
{ 
WORD oxlyyl; 
We siiviut Zoe 
Vi car ouvi de = 3} 
vst height(data_hndi ,char_fine, &gl_wchar, &o! hchar, 
hoi wehar , gl_hchar); 
v_otextidata hndi,x!,yl, crane); 
vst heightidata nd] ,char_medius, 49] _wchar, &gl_hchar, 
kg! wehar , gl_hchari; 
save pict _work(); 
rot pict work); 
} /t label slow t/ 
ee ee i / 
it lab fast window!) 1; 
(ss See oe Se t/ 
VOid 
lab_fast_window(froas,tos,mear,stdev, frac) 
ft This routing writes the i; 
AV information that has ceen %/ 
HORD froas, tos; /t entered to the data wincow &/ 
BYTE tmean, istdev, tirac; 
{ 
HYTE froms striSj,tos strié); 
set data workiTRUE); 
set clip (FALSe kpict_ work): 
rst data work); 
itoatfroms,froms str}; /t Convert froms to a string %/ 
itoe(tos,tos str); /t Convert tos te @ string t/ 


vst hergntidate find] ,char_ fine, &gl wchar, &g1 hchar, 
dol wohar , gl hchari; 
¥_gtextidata find! ,data_work.g x+5,data_work.g ytydataté, frome sir): 


LL Zale 





v gtextidata hnai, data _work.g x+25,data_work.g ytydatabd, "To"); 


v_gtext (data hndl, 
vy gtextidata_hndl, 


data work.g x+90,data_ work. 
data work.g x+75,data_work.g ytydatet6, mean); 


g_ytydatass,tos sir); 


v_ gtext(data fndl date work.g x+130,data_work.g_ytvdatad, staev) ; 
v gtext(data hndi,data_work.g %+190,data_ work.g_ytydatass, fracd; 


vst height icata_hnd! 
hol owenar , 


cave data_work:}; 
rs. data. work ()s 


ydatat+; 


a ee worki)s 


y /¥ iab_fast_window() %/ 


pchar_medium, &g]_wehar, &g] hchar, 
gi fichard; 


eG sone ew eo eeear Rae =< t/ 
it fab sion window() t/ 
ee oa ----- t/ 
VOID 
lab siow window(froms,tos,cnaae! /t This routine writes the tj 
ft information that hes beer 4/ 
WORD = frogs, tos; it entered to the data window %/ 
BYTE tcname: 
{ 
BYTE froms str{Si,tos str{S]; 
set_ deta work (TRUE); 
set clip(TRUE, &data work): 
rst data work); 
itoalfroms,froms stris /t Convert froms to a string %/ 
itcaltos,tos stri; /t Convert tos to a string t/ 


vet _heightidata tind) ,char fine, &g) wehar, &g! hchar, 

hol wohar , gi _hchar); 
v_gtextidata Rnd), data work.g x+5,data_work.g v+ydatats,froms stri; 
v_qtest(date hndi,data work.g x+25,data work.g ytvdatass, “To"); 
v_gtextidata hindi, data work.g x+S0,data_work.g y+ydatass.tos stri} 
v_ctextidata hndl,data work.g x+7o,data work.g ytydatasB, cname: ; 
vst hergnt(date_ hndi ,char_aedium, &] wehar, &q] _hchar, 

kal _achar , gi_hchar): 


Save data work(); 
rst_data work(): 


Sa 





yoatatt, 


set pict work TRUE}; 
set clip (TRUE, opict_work) ; 
rst pict work ()5 

> /€ Lab siow window!) #/ 


ae iat t/ 
it dc plot i/ 
eee ese t/ 
VOID 

do_ploti} 

{ 


cave data work i}; 

set clip (FALSE, &pict_work}; 

cet data work (TRUE}; 

set clip (TRUE, &data_work}; 

vst heightidata_hndi ,char_fine, &gl_wchar, &gl_hchar, 
hol wehar , gi_hchar?; 

ydateatt} 

v gtextidata hndl,data_ work. g x+5,data_work.g_y+ydatata, 

PLOT RELIABILITY HAS SEEN CALLED"); ydatatty 

vst height(data hndl ,char_gecius, & 2 wchar, &gi_hchar, 
hol _wefar , gl_hchar?; 

cave data work ()3 

rst data work); 

set pict work (TRUE): 

set clip (TRUE, &pict_work); 


$ 

{[¥------------------------------ t/ 
‘iq dc_hardcopy t/ 
#{->---------------------...--.- i/ 
VOID 


do_hardcopyt} 
f 


eave data _work(}; 

set clip(rALSE,&pict work}; 

set _data_ work (TRUE): 

set_clipi TRUE, &data work); 

vst _heightidata_hndl ,char_¢ine, &gi_wchar, &gi_hchar, 
kal wehar , gl_hchari; 

ydate++; 

v_gtext(data hndl,date_work.g x+5,data_work.g y+ydatats, 

"GO HARD COPY HAS BEEN CALLED"); ydata++; 

vet height (data find! ,char_medius, &gl_wehar, &Ql_fichar, 

bol wehar , gl_hchard; 


Dale 





te) 








SURE COMPUTATION LISTING 


This Appendix contains the modules required to do the 
SURE Computations. The modules are generally the original 
SURE computations modules converted from Pascal to OC. 
weveral additional modules were required for the interface 
into the GEM environment. 

The enclosed listings are not the final listings of the 
SURE program. The latest listings are available on disk. 

The computation module contains debugging aids, the 


module is not fully functional. 
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ACCOR  an 


it 
i} 
it 
it 
it 
it 
it 
it 
it 
ijt 


This 15 the SURE-Compute sortion of the SURE orogram. All 
routines necessary to implement the following functions are 


contained in the routine; 
Computation 


Jgotin c. Hordeaux 
Naval Fostgraduate Schec: 
Mecter’s thesis 


t/ 
i/ 
i/ 
t/ 
t/ 
t/ 
t/ 
t/ 
ij 


PORES COSTCOOCC COD OOCCOCUTEOSCOSSCECESSOC ICO LPOTI LI CSSLESELCOSSSSELES C1 


a ee t/ 
/¥ includes t/ 
eee eee ~~~ ~—~ t/ 
/t#include <stdic.h> %/ 

#include "portab.h" 

finciude “machine.h* 

finclude “obdets.h° 

tinciude “treeador.f* 

fiiciude “qembind.h" 

finclude “sure.f” 

#include “wath.h" 

firclude “liaits.&° 

finciuoe “optstrct.in” 

Hoefine TE_TRILEN(x) fx+24) 
aaa a t/ 
/t = prepracessar utilities t/ 
Jaan n ~ oo nnn nnn nn nn nnn -- == i 
tdefine MALLOC (x) ((y % 
Roetine  CALLUC(n, x) ((x %) calloc(n, 
[ §-~-------- 22 ee nn on eee eo - t/ 
it QPT/SURE defines i 
Cl — I a ahaha t/ 
Hdefine ENDUFDATE & 

#define BEG UPDATE i 

fdefine  MAXSTATe 100 
#detine = MAKTRANS 250 
fdefine  ETCALC 0 

tdefine START 1 

Sdefine GEQMETRIC FALSE 
#detine  prn: EPSHSS1).F NT 
Feefine  minreal peeve- 350 
#cefine faxreal 1.70838 
Rdefine idleng 8 

#define NULLA 0 

fcefine ALLOCSIZE 1066 


ft portable coding conv 
/% machine depndnat conv 
/t obiect definiticns 
fi tree address macras 
/¥ gem binding structs 
/t SURE apl resource 
/‘¥ lattice c 

/t lattice c 


alloc(sizeat (x))) 


sizect(y))} 


/t paxigum number cf states 


t/ 
t/ 
t/ 
t/ 

i 
t/ 
t/ 
t/ 


tj 


‘%$ @aximum nusber ot transition %/ 
/t Wintes algebraic formula, E(t) e/ 


/t indicates the start state 


($ deselect geometric 


/t pointer value for error 
/t size of available space 


ieehil 


t/ 
t; 


v/ 
i; 





static char allocbuf{ALLOCSIZ53; 
static char tallocp = allocbuf; 


pieage 9" >a =e ~~ SSS i! 
it External Functions t/ 
ie "need eee t/ 
EXTER LONS = dos_allocii; 
EXTERN UWERD  DOS_ERR: 

eee? ----45- "~~ =>>------- t/ 
it Global Data Structures %/ 
aa. ---------------~ 1/ 
BOOLEAN = predst{MAXSTATE): 
extern 

DEATHREC §8=- Sf death; 

TRANREC =—s Ssucest{MAXSTATE); 
INCON finconlist: 

WORD TINE = 10; 

WORT POINTS = 295 

LONS PRUNE = 0.0; 

WORD WAFNDIS = |; 

WORE TRUNE == 3: 

RORD Cerne eu 

WORD Lisl = 2; 

| |------------------------------ 1/ 
i$ external variables 1) 
oes tiaaes t/ 
extern WORD =o gh_wchar; 
extern WORD gl_hchar; 
extern WORD = gi_wboxs 

extern WORD = sg] hbex; 

exter HERD = gh] _rmsgf8); 
extern WORD = og ]_hspace; 
extern WORD SURE pen; 
extern WORD = SURE shade; 
extern WORD =©=- FEN ERASE; 
extern BORD title; 

extern WORD =—s- ydata; 

extern WORD = radius: 

extern RORD = ge@_ handle; 
extern WORD = vdi_handig; 
extern WORD = work outiS7]; 
extern WORD = ev_whichs 
extern WORD = vdi_handle; 
extern RORD = curr_hndl; 
extern WORD = pict_hndl; 
extern WORD = data_hndl; 


‘Ny 
it 


/t 
it 
it 
it 
it 
/t 


it 
iy 
/t 
/t 
/t 
it 


it 
it 
it 
/% 
/t 
/t 


it 
it 


storage for alloc 
hext free cosition 


struct state_loc state array(RSisTATe); 


RiSsion time 

nusber o¢ pts Plotted/calc 
deactivate the pruning 

set UB acc. to two digits 
set loop traversals at : 
sets the ki and Ki = 20 
sets the ouput level 


character width 

character height 

box {cell} width 

box {cell} height 

message bufter 

Ht. of space between lines 


Current data line 
Cureent radius of state 
BEM vdi hancle 

SURE vdi hancle 


t/ 
t/ 


$/ 
i/ 
t/ 
t/ 
$/ 
t/ 


1/ 
i/ 
t/ 
t/ 

J 
i/ 


t/ 
t/ 
i/ 
t/ 


open virt workstation valuest/ 
event multi return state(s) ¥/ 


SURE window handle 
SURE data window handle 


Ub Si 


1/ 





extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
ex tern 
extern 
extern 
extern 
extern 
extern 


extern 
extern 
extern 
extern 


extern 
extern 
extern 


ex ters 
extern 
ex ters 
extern 
extern 
extern 


extern 
extern 
extern 
extern 


extern 
extern 
extern 
extern 


WORD 
WORD 
WORD 
WORD 
WORD 
WOR 

LONG 
WORD 
WORD 
WORD 
WORE 
WORT 
WORD 
WORD 
KORD 
HOR? 
WORD 
WOR 

WORD 


URURD 
UWORD 
Uwone 
UWORD 


GRECT 
GRECT 
BRECT 
GRECT 
BRECT 
GRECT 


double 
double 
aouble 
double 
double 
double 
double 
double 
double 


BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 


pen_shace ; 
SURE height ; 
cher tines 
Char _meciuas 
char_broag; 
BONUMCEr 3 


aofecer | 


runticy 
pathcount 
CLUE UNE | 
cniprune; 
bigst; 

i; 


num states; 


® out ; 

MOUSEX, MOUSPYS 
betate, bclickss 
KSstate, kreturn; 


ad rasg; 
Gl menus 
drawacdr} 


curr_work, 
pict_work; 
pict rect: 
data work; 
curr undo; 
pict unde; 


speclow: 
spechighs 
specval ; 
ubfail; 
ibtail: 
e of t; 
é of t del; 
pialpha: 
lowbt, | owbg; 


key_inputs 
eruny 
nonlinear; 
et bad: 


it 
it 
it 
it 
it 
it 
it 
it 
it 
ft 
/t 
it 
ce | 
it 
it 
fi 


f 


it 
it 
it 


it 
it 


it 
it 


it 
it 


/ 
i 


it 


} 
/ 


ft 
it 
it 
it 


it 
it 
it 


saved per shade 

SURE current char height 
character height for tine 
character height tor mediua 
character herght for bros 
mouse fore nuaber 

mouse form address 

file handle -? pict Id/sv 
x posit tor line beginning 
y posit for tine beginning 
current x position 

current y positicn 

run nueber 

nugber of paths 

nueber of loops trunceted 
nugber of paths pruned 


1/ 
$/ 
t/ 
$/ 
t/ 
t/ 
i/ 
i/ 
$/ 
$/ 
i/ 
t/ 
i; 
$/ 
$/ 
t 


largest state entered so farf? 


nugber of states entered 


mouse in/out of window flac 
mouse x,y pesitiocn 

butten state, & # of clicks 
key State and keyboard char 


LONG pointer to eessece bfr 
menu tree address 


work area of current window 
work area cf picture window 
work area of picture window 
work area of data window 


variable range vaiue 
variable range value 
special variable value 
prob of system failure 
lower bound of tailure 
E(T) coaputation result 
E(i-$) computation resuit 
product of the aiphas 
intermediate resuits 


key inputting state 
runtime errors flag 
noniinear flag 

E(T} comp. 15 inaccurate 


ieee 


i; 


t/ 
t/ 
t/ 
i; 


1/ 
t/ 
i) 


t/ 
t/ 
$/ 
t/ 





extern BOOLEAN rec S10n; it recavery too slow t/ 


extern SCGOLEAN std big: ft Rec Std. too big t/ 
extern BOOLEAN = rate_tig; it Exp. rate too fast t/ 
eee = t/ 

y rit _pointers() t/ 

OS oo acetone oo t/ 

init _pointers:) /t initiate succst array t/ 
{ 

WORD ie 


BYTE =«nua_strizd); 
fdeath = OL; 
Itoa( (LONGifdeath, num stri3 
des printt(num str); 


fori i = 03 1 <= MRESTATE: itt) 
succst{iJ = NULLFIR; 
> /¥ inrt_pointers() &/ 


1 SIS ale t/ 
‘t alloc(} t/ 
Da nm en y/ 
BYTE 
taiioc in) /S return scinter ton characters %/ 
WORD on} 
‘ 
iff ailoco + <= allocbué + ALLOCSIZE ) ft fits i/ 
{ 
aliocp += nj 
returatallocp - m3; /t old p i/ 
} 
else i$ onet enough roos t/ 


return{NULLA) : 
3 /% alloct) &/ 


[§---------- 2-2 2+ = == +--+ - t/ 

{% free() t/ 

| §------------ ---2--------------- t/ 

free(p) /% tree storage pointed te by p8/ 
Brie §p? 

{ 


1¢({p >= allocbuf && p ¢ allocbuf + ALLOCSIZE ) 
aliocp = p: 
} /t treet) 8/ 
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ik cower {} 4, 
eee ae Oe ee ¥ 
KORD 
power (xm! ft Raise x to n-th powers nr t/ 
WOR a, Mi 

WORD ets 

et 

more! b=je0y <= ny ti } 

p=p ih xy 

return (p); 
i /t power {) ¥/ 
ees - ~~~ == t/ 
it printas {} t/ 
[fon n nnn nn -- we nen om enn en nnn nnn aj 
VOLE 
printdsin, string 
KORE ni 
BYTE stringlé+); 
f 


» 


WORD A, ae 
BYTE teapsti64); 


et 

Ut 

Ten U. 

{ 
f= =a" 
stringliitti = 7-"3 

} 

do 

{ 


tempstiit+) =n Ff 
pewirleto(a /= 10) > 0 | 


Wieleie=-7 7270 } 
stringliitt+] = teapstfid; 
stringiii} = *\'; 
} fb printds() &/ 
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it fotal} i 
Ce t! 


/t Convert n te characters in st/ 


WORD = =61,11, Signs 
WORD =i, POW; 
Kyte stringl64]: 
double x, tempx; 


1 = 0: 
fey 40) /t record sign 1/ 
: 
etiecie= =" 
m= ny it make m gositive i; 
} 
pow = (; 
whilec n< t, } 
{ 
POWs 
n= melds 
} 
whilei n> 10.0} 
{ 
Powtts 
n= n/its 
} 


m= (int) ns 
printds(a,string); 
strcpyisti string}; 
1 = strienisi; 
cf{itt] = ee 


x = A-M} 
whitel (x f= G0 ) &6 (i < Bi} 
{ 
teapy = x3 
teapx $= 10; 
11 = {int} teapz; 
Sita) =i) +46: 
x = tempx - 113 
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if{ pow '= 9 } 


f 


\ 
Sixt EY 
iff pow v= 0 ) 
Giles es! 
printdsipow,string) 4 
strepyisti,string?; 
} 
else sti] = *\O": 
returns 


yay htotal) ¢/ 


| J------------------------------ ¢/ 
it findtran 1/ 
(ses coe i/ 
BOOLEAN 


findtranifroms,tos,pmean,petdev,ptract) 
statetypes froms, toss 
VALREC tpsean, Ipstdev, Ipfract; 
i 
TRANREC Yo; 
BOOLEAN found: 
doc printf(*Findtran has been entered"); 
{ 
p= succstlirons): 
found = FALSE: 
wiiie { p ‘= RULLPTR) 


f( o- et == tos) AV Transition found 


wm be 


found = TRUE: 
paean-;coet = p->mean.coet; 
Omean-7baSe = O->mean, case; 
pstaey--coet = p-rstdev.coets 
pstdev- base = p->stdev. base; 
ptract-7coef = p-?fract.coefs 
piract- bace = p-dtract. base; 
i 
Oe=a0- ner t: 
} 
} 
Gos orintt("Findtran fas been exited"); 
return (found); 
) /% tindtran 4/ 


1) 


1/ 





't itranscht t/ 
[Yoon nn nnn nnn nr nr rrr rrne t/ 
WORT 

itranech} (froms,tos,nslow,ntast) 


é 
WORD «= trams, tos; 
WORD =o nslow,nfast; 


WORT founds 
doe printfi*Itranschk has been entersc’s; 
{ 
p = succstitrons); 
found = G5 
nsiow = 0: 
nfast = Oy 
while (p ‘= NULLFTR) 
{ 
oi este st 
found = founc + 1; 
if { peost v= 0} 
{ 
if ( p-ostdev.base == -1,0) 
nislow = nsicw + fs 
glee 
nfast = néast + {: 


iv 


dos asrint‘{"itranscnk has been exited"); 
return (found?: 
> /E itranschk t/ 


|] ---- oe nec nnn nn none en nn ne t/ 
/t enter {) t/ 
| Yrrwnn nnn nnn ncn nn wenn enon oe / 
VOID 


enter (froas,tcs,omean,pstdev, ptract) 
Statetypes froms, os: 
VALREC tpmean, Fostoev, sptract; 
ny 

TRANKEC = tp; 

VALREL Viv 2. Vor 

KOOLEAN = tnd; 

HYTE nus strf[o4); 


as) it Transiticn touns 
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dos printt("Enter has been entered’); 
set_clip(TRUE, &cdata_work?; 
vst height (data hnd!,char_fine,$g]_wehar,4g]l_hchar, 
kg] _wehar,gi_hchar); 


fid = findtran{froms,tos,tvil,bv2,8v5))3 
iff fnd && (tos == -1) } 


f 
v_gtestidata tndi,data_work.g xt5,data_work.o yrydatato, 
"$aea HOLDING TIME ALREADY ENTERED"); 
ydata+t; 
} 
else 
{ 


predstitosj = TRUE; 

it{ froms > bigst } 
bigst = froms; 

if( tos * bigst } 
bigst = tos; 


it( ( froms > MAXSTATE) 31 (tos > MaAxSTATE) 
memiteces 90) 7, (tos < =1} } 
[ 
v gtextidata hndl,date work.g x¢5,date_work.g y+ydatasé, 
"seed STATE QUT GF RANGES); 
ycatatt: 
i 
elce 


= MALLOC(TRANREC) ; 

rst = tos; 

NULLFTR; 
-)mean. base = pmean-:base; 
->mean. coef = pmean-7coet; 
p->sidev.Sase = psidev--base; 
p-?stdev.coef = pstdev->ccet; 
p-stract.base = pfract-7bases 
p->fract.coef = pfract-icoef; 
p- next = succst{(froas); 
sutcst( trams] = 93 

aos printti*the pointer for p follows”); 

itoat (LONG) p.num str); 

fos printfinum str); 

fotalpmean-*base,sum str}: 

des printt (nua str); 

fotalsstdev- base, num str): 

dos printéinua str): 

fota(ptract-tbase,num stri: 

cos printf (num str): 


. 
4 


wmounoeuwmwo CO es 
U 
a wl 
ru rt 
ba 
rr 
at 


% 
f 


eS), 





} 
dos printti°Enter has been exited"); 
set clip (FALSE, cata worn); 
vst heightidata hind] char medium, &gl wetar.,eg: hchar, 
kgl_wchar,a! fichar); 
} /t enter() &/ 


doubie 

capipv) 

VALREC = pys 

{ 

dos printt("cap has teen entered and exited"); 
return{ pv-2base + (pv-dcoet)ispecva! ); 

y /¥ capt) %/ 


[nnn oo nn ono nnn ene = 3) 
it clear i/ 
| nnn nn mn rn nn wr ere ne rene t 

W010 

Clear() 


TRANREC = 8, 413 
WORD Ve 
\ 
cor ve 13 1 X= Digst: i++ ) 
( 
1f{ succeti:] ‘= NULLPTR ) 
t = succst{i: 
While( t '= RULLPTR ) 
P= ts 
t = t-)next; 
free(])s 
} 
succstii] = WULLPTR: 
} 
predstlil = FALSE: 


y ft clear %/ 
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it approx eti} t/ 
JOS aaa a t/ 
double 
approx _etfep,at) 
EREC Sep; 

y 


BYTE = sum _Str[64); 
dos printfi*approx_et has been entered’); 


ro 
io 
aa ond 
a 
iT 
CS | 


eof t del = 3; 
while( ep '= NULLPTR) 
{ 
dos printf(°The value for k follows"); 
itca(k, mua str); 
des printf (num str); 
k++: 
Itoa((LONS)es,num str}; 
dos orinttinum str); 
dos print¢ ("The value for ep-dlambda follows’); 
fotal(ep-siaabaa,nua_ str}; 
dos print? (num str); 
des printfi*the value fer eof t follows 
fetaie or t,fug str): 
das printf(nus str): 
des printz(*The vaiue tor st follows”): 
fota(mt,nua str}; 
dcs print? (nua str}; 
e of t = ef 
ep = ep- ne 
dos print¢ ("The pointer ¢ 
Ttoa((LONGsep, nue str}; 
dos printf (num str}; 
j 
fotaie of t,nua str); 
cos printfinua str), 
dos printt ("approx st has been exited”): 
return(e of ti; 
} /% approx et $/ 


B 4 


srl abecdes ec Cf 4 scsi: 
ae 


or ep,EREC,in the whiie loop 
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folloxs 


B 


4 
} 
a 





RURG 

returnentics,h} 
Statetypes cS: 
HIST th: 


f 
4 


WORD cy 
dos printt("returnct has been entered®); 
c= 0: 
while h '= NULLFTR } 
{ 
if ( h-dst == cs ) 


Et 
h = h->next; 
} 
return( c 3 
} 
des printé("returnct has been exitec"); 
> /$ returncent &/ 


le ees ee I 
it hcopy i; 
0) SEO SSS SS as i/ 
Wold 

tcopy (hip, rin) 


Hi5S; hp, &np; 


f 
‘ 


HIST «= Sap, Bo; 
BYTE nua _str{id); 
des _printf("hcopy has been entersc”); 


np = RULLPTR: 
while( fp '= NULLPTR 3 
{ 

op = Ip; 

Io = MALLOC (HIST); 
dos printti"The pointer for Ip,HIS! follows’); 
Itoa({LONG) ip, num str); 
dos printfinum str); 

Ip-7st = hp-dst; 

Ip-tnext = NULLPTR; 

1f{ np == NULLPTR) 

np = Ip; 

else 

op- next = Ip; 
hp = hp-?next; 
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j 
dos printt(*hcopy has been exited”); 
} /t heopy §/ 


oop ogeene == > ——-———— === / 
ik ecopyi} i/ 
aaa. ------------=== $/ 
VOILE 


ecopy (ep, np) 
EREC } = Fep, tnp; 
( 
EREC top, #15; 
RYTE nua striivi; 
dos printf{"ecopy has been enterec")3 


np = NULLPTR; 
wiile( ep ‘= NULLPIR j 
{ 
op = Ip: 
lp = MALLOC(ERES) 
dos crintt# ("The pointer for Po, EREC follows"); 
ltoa(i{LONG)ip,nua_stri; 
dos print? (num str): 
lp-snext = NULLFTR; 
ip-viambda = ep-iambda; 
lp-7qaama = ef--ganaa; 
if( mp == NULLFTR |} 
np = Ip; 
else 
op-onext = lps 
ep = ep->neats 


} 
dos orintti’ecopy has been exited’); 
} /¥ ecopyi) &/ 
ites nse S-—-—~—---===—-—— i/ 
it hagd{) ti 
OH I et F, 
VOID 
haddics,h) 
Statetypes css 
HIST Ths 
{ 


Hist tip; 
BYTE =num stroll: 
dos printti*hadd has been entered"): 
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Ip = hy 
h = MALLOC(HIST) ; 
dos printf("The pointer for h,EREC follows"); 
Itoa ((LONS} fi yrmum_strey 
dos printtinum str); 
h->st = cS3 
Neve yces 1D; 
dos printti"hado has been exiteo’); 
i ft haddar a 


ieee ae >> So --= t/ 
it aodtoelist!) i/ 
| |o----- 2-2-2222 2-2-2 2-2-2 ---- t 
Volo 

addtoelisti(cs,cp,ep, nen) 

Statetynes CS; 

TRANREC Srp; 

ERE fep, Ynep; 

\ 


double gamma; 
TRARREC = og 
dcubie  cep(); 
BYTE nua striidd; 
gas printt("addtoeiist has been entered’); 


Gana = 0.0; 
p = succstics); 
while¢ p ‘= NULLFTR } 
{ 

Pepe co} 


Qamaa = Qagma + capl(h{(p-dmean)) ; 


if({ capthip-pmean)) > (TIRE/LO.07 } 
rate big = TRUE; 
b= p-onext; 


‘ 
? 


nep = MALLOC{EREC) 


dos printf (*the pointer for sep,EREC follows':s 


Itoa((L@No)nep,num_ str); 
des _printf{nua str): 
fep-?lamida = capi&(cp--mean)s; 
Nep-7gagne = gamma; 
Mep-onext = eps 
dos_print#("addtoeiist fas been exited"); 
} /¥ addtoelist ¥/ 


/$ ALi are exponential 
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BOOLEAN 

death ip) 

TRANKEC $93 

{ 

dos print¢ ("death has been entered”); 
if{ p == NULLPTR } 


\ 
dos printf ("return TRUE"); 
return (TRUE): 

} 

elce 
; 


des printéi*return p-ost = -{["}3 
returni{ p-dst == -1 ) && ( p-dnext == NULLFTR) ); 
} 

dos printfi"death has been exited"); 

} /¥ death) &/ 


| Yan en nn nn rn rn nnn nn nn nnn nnnnn- ¥/ 
ii addtodeath() $/ 
[Yemen nn conn cree nner enn c cn cn en nn- t/ 
VOID 


addtodeathlas, ep, hp, 15, ut, celta! 
Stetetypes 5; 
eREC tep; 
HIST tho; 
double !b, ub, delta: 
f 
DEATHREC = tas 
BOCLEAN = found: 
NORD le; 
RYTE fosters) usin io2i, nue strlisl: 
Gos printt(“addtodeath has been entered*); 


Mi ite = 3 } 

{ 
v_gtext(data_ hndl data work.g xt+5,data work.g yrydatald, 

"$400 ADDTGDEATH ENTERED"): 
/t calc_etlep,deltal; %/ 

ub = ubie of t; 
Ib = ib¥e of t_del; 
ydatat+: 
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EST = 2) 
i 
itca(d-dst,num str}; 
vy gtextidata hndl,data_work.g_xt+5,data work.g ytydatasd, 
nua stri; 
fotailb, lbstr): 
v gtextidata tind), data work.g v+B3,data work.g ytycatats, 
listri; 
fotatub,ubstr); 
v_gtext{data hndl,data work.g x+l6l,data worn.g ytydatals, 
ubstr): 
ydatatt; 


iff et bad ) 
{ 
v_gtextidata find! ,data_work.g x+5,data work.g ytydataiB, 
"ESEE ELT) ENACCURATE") ; 
YCatatt; 


% 


et bad = FALSE; 


= tdeath: 
cund = FALSE: 
while< d ‘= NULLFTR ) 


} 
d 
t 


—— 


found = TRUE; 
d-?lprob = d->lprob + ib; 
d-yuorob = d-/uprob + ub; 


d = d-tnext; 
) 
1¢{ 'found } 


f 
t 


G = MALLOC (DEATHREC? : 
dos printf ("The pointer for d,DEATHREC fellows’); 
Itoat(LONS)d, num str; 
dos _printt(num str): 

d->next = NULLFTR; 

d-7st = OS} 

d->lprsb = 1b: 

d->uprob = ub; 

if{ fdeath == NULLPTR ) 

fdeath = d; 

else 

{ 

d- next = tdeath;: 
fdeath = d: 


ye 
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Misisie= 3") 
{ 
v gtextidata hndl,data_work.g x+3,data_work.g ytydatasd, 
"$38 ADDTO DERTH ENTERED"); 
ydatatt; 
fe<= 
while: hp '= NULLFIR ) 
{ 
v_ gtext(data find] ,data_work.g x+5,data work. g ytycatat3, 
(ae eee OUT WHE STRTE™ 1; 
ydatatt; 
rie et S= 0 | 
{ 
v_gtext{data_hndi data_work.q x+5,data_work.a ytydatald, 
"gets PRINT OUT THE ERROR"); 
ydatat+} 
} 
hp = hip--iext; 
ett: 


} 


Save Gata worki); 
dos print? {*addtodeath has been exited’); 
y /t adctodeath %/ 


j ¥------------------------------- 3/ 
it allexpo() t/ 
ees >> 25> ~~ ----- / 
ROGLEAN 


allexpc(lp,uc,sig2c} 
TRANREC 1 p35 
double uc, sig2c; 
{ 
BOOLEAN tallexos; 
double capt); 


dos printti°allexso has been entered”): 


tallexpo = TRUE; 

UG= <1} 

sigec = =]: 

while’ Ip '= NULLPIR } 
f 


me ip=7st 7= U } 
{ 
iff cao(kilp-detcev)) }= 0} 
tallexpo = FALSE; 
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else 


uc = capik(ip- mean); 
Sig2c = cap(é(ip-rstdev)); 
sig2c = sigzc ¥ s1gq2c; 


3 
Ip = Ip-dnexts 
} 
dos printtlallexso has been exited’? 
return(tallexpols 
> {t allexpo t/ 


BUGLEAN =e tallexsolee; 


taliexpolee = TRUE; 
while{ op ‘= NULLFTR } 


{ 
if{ p-rst d= 0 ) 
f 
\ 
ican lenn=-iracti) 7 0 } 
tallexpolee = FALSE; 
J 
p = p-dnexts 
} 


return(tallexpolee}; 
} /t allexpoiee!) &/ 


[f-------------- -- 2 ~~~ ----- == t/ 
i traverse) 1/ 
[ $n nnn nn nnn nn nn enn n nnn ----- t/ 
VOIL 


traverse(ce,tip,ep,ib,ub, delta) 
statetyoes cs} 
HIST tho: 
EREC ten; 
double 1b, ub, delta; 
{ 
TRANREC =o to, Up; 
EREC tlep, tnep; 
HIST Trips 
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WORD retc,returncnt(); 

Gouble alpha, uC, Sig2c; 

double an, std, frac, taom, fl, #2; 

double delta at cs, ri, $33 

doubie oldib, oldub, suafract, sumexpos, pax; 
double  apcrox_et(),capl); 

BYTE nue str(20),pmaxstr [22]; 


dos printf (*iraverse has been entered”; 
retc = returncnt{cs,hp); 
mews j= 5 } 
vy qtextidata find) ,data work.g x+5,Gata_work.g_ytydatata, 
eee ievencr ———oCS, LB. WB"?% 


yoatatts 
iff retcd= TRUAC } 
{ 
cattrunctts 


if( LIST 7= 4 ) 
{ 
phex = ublapprox et(ep, TIME); 
dos printt("ep following paax in traverse follows"); 
Itoa(iLONs)ep,num str); 
des printf (num str); 
v_gtextidata ind] ,data_work.g x+5,Gata_work.g ytydatasd, 
"Loop At State"); 
Mloaics, nue str’: 
v_gtextidata ind] ,data_ work.g x+8o,data work.g ytydatass, 
Mua str); 
fota(otax pgaxstr); 
vy gtextidata findi data work.g x+9S,data work.g y+vdatass, 
phaxstr) 
ydatat+; 
goto Jab959; 


a“ ike) Range 
~ 
Ug) 
mm 


Shay = ubtvaporox etflep, TIME); 
dos _printf(*ep following pmax in traverse follows”); 
lteai (LONG) ep, nus str); 
cos printf (nua str); 
if( pmax <= PRUKE ) 
{ 
chtprune++s 
Peer Sh j= 
{ 
v_gtextidata hind! data work.g xti,data_work.g yrydatald, 
"Fath Prune at"); 
itca(cs mum stz); 
y_gtext(data find] ,gata_work.g x+8i,data work.g ytydataké, 
hue str); 
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ydatatt; 
} 
gota 1aboS9; 


a 


mhp = MALLOCCHIST) ; 
das printti"The pointer for mhp, HIST follows"); 
Itoa((LONGinhp nue str); 
dos printtinue str); 

nhip-7st = css 

nip-ynext = hp; 

p = succst{cs]; 
dos printf("The pointer for ¢,succstl] follows"); 
Itca((LONo)p,nua_stri: 
dos printt (num str}; 


it ( Geath{(p) ) 
{ 
addtodeath(cs,ep,nho,ib.ub,deltad; 
pathcount++; 
else ifs allexco(p,uc,sigdc: } 
{ 
whilef p '= NULLPTR } 
{ 
Habs y= 20.) 
{ 
doc printf(*ep prior to addtcelist in traverse follows"); 
itoai(LONSlep nua stris 
dos printfinum str}: 
dos printf (*nep pricr to addtoelist in traverse rollows"); 
Itoal(LONG)nep,nua str); 
dos printt {num str); 
addtoeiistics.p,ep, epi: 
dos printt(*nep after cali to addtoelist in traverse follows"); 
Itoa(iLONGinep, num str; 
des _printti(nus str); 
dos printf (*nhp prior to cal! to traverse in traverse tollows'); 
Itcel(LGRo)nhp,nua_str): 
dos printf(num str}; 
traverse(p-7st,nhp,nep, 1b,ub,deltals 
dos_printfi*The pointer for nep,EREC, to be freed follows"); 
ltoa( (LONE) iep,nua str); 
cos orintt{nua str); 
free(nep); 
} 
p= p-onexty 


j 
iy 


1uS0. 





oldib = 1b; 
oldub = ub; 


Wit Sigzc «20m /t Holding Into Not Founc By Allexpo 
‘ /t Approxiaate From Transition Into 


¢ 
> 


uc 


= 0; 


‘ 
= succst 
sumtract = 


0 
c 


esis 
Ueue 


sumexccs = 0,03 
while Ip '= NULLPTR ) 


\ 


Io = 


i 
if! 
( 


1 
3 


if( ip-?st >= 0} /t Not Holding Tige Into 


t 
\ 


i 
— 
il 


cap{&{lp-?mean)); 
cep (hilp-sstdev)); 


ur 

Conca 

oJ 
tl 


if { std d= 0 ) /‘t Fast Recovery Transition 


{ 
frac = capihilp-ofract!); 
uc = uc + fracten: 
sumtract = sumfract + trac; 
teca = stdistd + eantan; 
Sigic = sigze + fracttmonm; 

else /% Slow transition 
SUBEXPOS = SumeXDOS + AN; 

1 


Tp = ney ts 


/t -- At least one transition from P not exponential -- %/ 


i; 


i; 


Vj 


abs(i.0-sumfract) » i.Ge-{0 } /t Machine Dependent %: 


erun = TRUE; 


v_ctextidata hndl data _work.g x+5,data_ work.g ytydatase, 


"ORTH ERROR G48 SUM of EXITING"); 


yoatatr: 


Sigéc = Sigze - uctuc; 


ta 


iol 7= 39 3 
if 


1 


v gtextidata dnol,data_wore.g xtd,data work.g ytydatass, 


"Write UC, Sigzc, afd Sumexpos”); 


ydatatt+s 


was 


delts at_cs = deltas 
whilet p '= NULLPTR } 


L 


Lak 





lb = oldib; 
ub = oidub; 
Pit pst Fane 
{ 
an = cap($(p- mean) }; 
std = capitip-}stdev)); 
teom = antan + stdbsta; 
if( std >= 0 } e--- Fast Vier se = 1/ 
{ 
frac = capihip->fract)); 
ub = ubifrac; 
if( LEFACT > 
ri = LBFS 
else 
ri = sqrt(anis 
if{ ri <= @inreal ) 


r 
ub 


0 
E 


) 
Teianestdds 


fea, 0} 

v gtoxt(data hndl data_work.g x+5,data_work.g yt+ycatats, 
"Instantaneaus Recovery Net Allowed"); 
ydatat+: 


else 
fi = ( {.0-sumexpostan - tmoa/trigri) ); 
Pe See 
( 
Piero, y= a) } 
{ 
¥_gtext(deta find] data work.g x+5,data_ wore. _ytydatats, 
"LIST @= 3 in Traverse, SQ cn AND ON"); 
yoatatts 
} 
#1 = 6.03 
if{ sumexpos > 0,1 ) 
rate big = TRUES 
else if{ ftmom / (ritri)) > 1) 
std big = TRUE; 
else 
rec Slow = TRUES 
i 
1b = lbtfracttl; 
ifi LIST >= 9 ) 
{ 
v_gtextidata find] data work.g xt5,data_work.g ytycatak’, 
"Ri and Delta”): 
yoatatts 
J 
delta = delta at_cs + ri; 
} 
else 


SPA 





{ /4 Slow on path transition t/ 
alpha = cmpi(s(p->mean) is 
ub = ubdalphatuc; 
Te LHP t 2) 
sj = LBFACTSiuctsort(sig2c)) 
else 
S$) = sqrtiuc); 
team = uckuc + 5ig2c3 
1#( 5) <= minreal } 
{ 
te = 0.0% 
v_gtext(data_hndl, data _work.g_x+5,data_work.g ytydatass, 
"Instantaneous Recovery Not Alicwed"); 
ydatat+; 
j 
else 
fZ = uc - taoat( sumexpos/2.0 + 1.0/5) }; 


pee <= 0} 


#2 = 0,0: 

if( su@expos > O.1 } 
rate big = TRUE; 

else it{ uc > @.1 } 
rec slow = TRU; 


else 

std big = TRUE: 
14{ LIST d= 3} 
f 


v_gtext(date hndl data work.g xt5,data work.c ytydatals, 
"$443 FZ Negative G44"); 
ydatat+; 
itoa(cs, mus sir): 
v_gtext(data hid] data work.g x+25,data work.g ytydataté, 
nus str); 
yoatat+; 


Ip = succstics]; 
while( tp '= NULLFTR } 
Piuelo-7st 7= 0 3 /{ Wot Holdin tise = %/ 
{ 
an = cepi&é(ip-smean}); 
std = capizilp-estdev): 
v_gtextidata hnd]l data work.g xt+5,data work. g ytycatase, 
"445% To State VEea"); 
ttoa(ip-dst, mum str}; 
v_gtextidata hndl,date work.g ytl05,deta work.g ytydatala, 
mum str}: 
ydatat+; 


ioe 





[p= ip-ynexts 
} 
} ‘taf jistlevel = 43 $/ 


} 


16 = lbtalohatfe: 

Pills, = O-) 

{ 
y gtext{data hndl,data work.g x+5,data work. ytydatatd, 

"seed SU,DELTA tate’); 
ydatatt: 
delta = delta at_cs + 53; 
y 


rf{ delta o= TIME !} 


v_otext {data fine] data _work.g xti,data work.g ytydatale, 
"Eusd DELTA > TIME aba"); 


ydatat+; 
} 
traverse(p-7st,nho,ep,Ib,ub delta); 
} 


p = p-nexts 
i /¥ while t/ 
rey it 5 / 
dos printfi"The pointer for nhp,HIST, to be freed follows"); 
itoal(LONS!nhs nue str); 
des print?(nua_str}s 
“reea(nhols 
mace os: 
save data _wark(); 
dos printti"Traverse has been exited®!: 
/t traverse) $/ 


5 
+ 


é 


| §------------------------------- t/ 
it hdr! () t/ 
| J------------------------------- t/ 
vOID 

hdr 1 () 

: 


INCUN = fincp: 
WORD Pe enc: 


mr 153.50 } 
{ 
/t 1f( Jeetlag == LEE ) 
{ 
v_gtext(data findi data work.g xtS,data work.g y+vdatass, 
ae EES STAT GhIeRE ANALYSIS RODE ---="): 
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ydatat+; 


} ¥/ /$ Lee Analysis Nege To Ye Added Later %/ 
inco = inconlist; 

icnt = 03 

while( ince '= NULLFTR } 


Venta. 
forf 1 = 1s 1 €= idleng; i++ } 
rilewniep-sidiiy ==? } 
gota lab/7; 
else 
{ 
v_gtext(data hind) ,data_work.g xt5,data work.g ytydatak®, 
MHEG=p1ot tJ): 
ydatatts 
} 
bab?: v_gtext(data hrdl,data work.g x+45,cata_work.g ytydatale, 
incp- dvi? 
yoatat+s 
1f( (icant 4 3) == 0 ) 
{ 
vy gtextidata hndl,data work.g x+5,data work.g y+ydatatd, 
"NULL in HDEL"}; 


yoatatt; 
} 
Incp = 1nco-dmexts 
i 
Ment 7} 3) = 0 } 


( 

{ 

v_qtextidata bndl,data _work.g x+5,data work.g yrydatadd, 
* Tf ndri used eore code recuired’): 

yoatat+: 

} 


o 
-~ 


: 
mee horito t! 


[ Yom nm wn nn nn nnn nnn enn nnn - == 1/ 
/% hdr 20} $/ 
ede as >7-----~-----------=- 1 
VOID 

hdr20) 

{ 


v_gtext(data hndi,data work. x+5,data work. g ytydataté, 
"DEATHSTATE «LOWERBOUND UPPERBOUND*); 
ydetat++: 
Seve cata work (); 
y ft hdr20) @ 


iD 





° Bo se wee 
V gtextis 
E 


hndl datz work.g 


ata. Sort 
HEADER NUMBER THREE CALLED"): 


K 
ydatatts 
cave data work (}: 

y/thdriQ) U/ 


a6 - "= === ===--- 1/ 
iy getstart() t/ 
[.------___---------------~---- t/ 
RURD 
getstarti! 
HURD «6.1, 90S! 
Beso= “1; 
Benet = 0s 1 x= bigst; i++ } 
: 
V 
Pee oreus. ti) } 
ie 
\ 
ifi succet£1] ‘= AULLFTR } 
f 
\ 
if( pos 2= G } 
pos = -2: 
goto Lab9s: 
, 
else 
pos = 14 
¥ 
4 


} 
1ab95: = return (ocs): 
} /t getstarti) t/ 


jlgey 





wee ee enw eweweweween een @ ew @ 2 we2 | | ew | Sw |S we ew 


Te tt 


i 

DEATHAEE td; 

Statetyoes a5, startstate; 
BOULEAN pwarnit 

RYTE um _strlS),lorotstre 
BYTE ubfaristr(32),ibfa1: 
doubie MewUo,, CPi % 

BYTE itestptry 


dos print{("dco compute hes been e 


set ciiptiRuc,bdata work} 
vot heightidata_findi char fin 
eg! weohar,gi Achar 
voatat+t; 
startstate = i: 
pathcouat = 4; 
rate big = FALSE: 
erttrunc = 0; 
cotprune = 0; 
Ib = 1.0; 
tere 1.08 
Gel = 0,0; 
switch (LIST) ¢ 
case il}: brear; 
case (fi: hdr2d; 
case (3:3 hdr) 
i /¥ case %/ 
Bestctr = JL: 
ltoaiiLUNG/testotr mum str): 
doc printé (nua str}; 
itca {LONGitceath, nus stris 
des printtinum str}; 
tse ((LONGINULLPTR num str}: 
gas print? (nue str): 
it white tdeath [= NULLFTR } 
ie nt 
cd = tdeatny 
foeath = fdeath-vnexty 
r+ ay 


Ginter for dg, DEA 
itoat{LONSid.nug stris 
gee printf inue str}: 

free(at; 


bay ty 
fdeath = NULLPTR: 


ntered")3 


Ye 

a) 

/¥ NETRING # 
. OFreak: 

© breaks 


i} Cleanus from previcus runs %/ 


TREC, to be freed follows"): 


eo 





traverse(startstate, NULL, NULL, 1b,ub,del); 


g = réeaths 
ibtail = 0.0; 
ubfali = 0.05 
Peievior 3="5.} 
hdrzids 
wiile( d {= NULLFTR ) 
1f( LIST d= 2) 
{ 
itoald-?st,nus_str); 
v gtextidata findl data work.g xt+5,data work.g ytydataid, 
rua str); 
fota(id-dlprob) ,lprobstr); 
v_gtext(data hnd],data work.g x+89,date_ work.g yt+ycatals, 
Iprobstr); 
fotel(d->uprot) ,uprobstr); 
v_gtextideta_ hndl,data work.g x+156,date work.g y+ydatats, 
uprobstr); 
vdatat+; 


it{ et bad } 
{ 
v_gtextidata hnal data work.g x+5,data work.g ytydataté, 
eee NMeCURATE “J 
yoatatt: 
et bad = FALSE: 
} 
Peer! = §btail + d-slorob: 
ubte:] = ubfail + d-?uprob: 
d = G->nexts 
} 
Gwarh = uotal! < PRUNEScntprunes (power (10,WARNDIS) }s 


fetal. 4 
case if): 
v gtextidata find] data work.g x+o,data_work.g ytydatade, 
BeraSe Le schEU leno) s 
yGatatt+; break; 
case {2}: 
case (3): 
v_qtextidata hind] ,data_work.g xt+5,data work.g ytydatass, 
SIU eat 
fota(lbfail,lbfailstr); 
v_gtextidata find] data work.g x+B0,data_work.g ytydatats, 
lbfailstri; 
fotatubfarl,ubfailstr); 


swittc 
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v_gtext(data hndi,data_work.g x+i58,data_work.g y+ydatase, 
ubfailstr); 
ydate++; break; 
» /¥ End of Case ¢/ 
Melee 2G"? 


{ 
1f{ rec stow ) 
{ 
v gtext(data hnd!,data work.g xt+5,data_work.g ytydataks, 
" ,. RECOVERY 700 SLOW *); 
ydatatt; 
i 
Va bete pg | 
{ 
v_gtext(data hndl data work.g x+5,data_ work. g yrydatals, 
ee RAleere hag) 
ydatat+; 
Mie stg Uid ) 
; 
v_gtext{data ting! data _work.g x+5,data work.g v+ydatats, 
eeeoheevEy 100 SIG "I's 
ydatat+; 
i 
A bigere vs) 
{ 
v_gtext(data lind] ,data work.g x+5,data work.g ytydatals, 
jeeees Siniesean MODEL); 
ydatatt: 
1f( pwarn } 
{ 
y gtextidata find! ,data work.g x+5,data_work.g y+ydatase, 
eee ruNdNo 100 SEVERE 
ydatatts 
} 
elce 


erun = TRUE: 
rec Slow = FALSE; 
rate big = FALSE: 
eta bio = FALSE: 


set _ciictTRUE,Sdata work): 
vet height(data tind!,char_fine,&ql wehar,4qi hchar, 
&q)_wehar,gl_ hchar)s 
dos _printf("go compute has been exited"): 


4 


} /$ do compute() %/ 


Lays, 





/t execstats() t/ 
Dn nn = §/ 
VOID 

execstats() 

{ 


KYTE num strlod; 
Oos printfi°execstats hes been entered"); 


iets! 7 UV) 
{ 
itoa(pathcount,nug str); 
vy gtextioata hndl,data work.g x+5,data_work.g y+ydatatd, 
hum str) 
vy gtext(data hind: ,data_work.g x+83,data work.o ytydatats, 
"PATH(S) PROCESSED"); 
ydatatt; 
if{ cnttrunc > 0 ) 
{ 
itca(cnttrunc,nus str’; 
v gtext(data fndl, data work.g xto,data work.g ytyoatats, 
nue str); 
v_otext(date hne!l, data work.g x+23,data work.o ytydatald, 
"LOGF{S) TRUNCATED"): 
ydatatt: 
j 
if{ cntprune 7 0 } 
{ 
itoalcntprune,nus str); 
v gtext(data hindi data work.g xti,data work.g ytycatalg, 
nue str); 
v_gtextideta hndl, data work.g x+B3,data work.g yrydatalé, 
"LOOP (S) PRUNED*); 
ydata++; 


1 

i 

save data _work!); 
dos print? ("execstats has been exited"); 
) /t execstat(} t/ 
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ABSTRACT 


This thesis describes the porting of a NASA developed 
Markov reliability analysis tool to a relatively inexpensive 
IBM-AT. Currently the Markov analysis tool, called SURE, is 
not widely utilized because it runs in an expensive 
environment consisting of a VAX, megatex display, and 
template graphics software. Although substantial savings can 
be made by running SURE without the expensive graphics, the 
user friendliness of the tool is dramatically degraded by 
the lack of graphics. Accordingly a C program using the 
inexpensive GEM graphics environment has been written. The 
program is user friendly; it uses menus for option 


selections and prompts for data entry. 
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